implemented tutorial 18 in perl
remove mpdl