Select Code to Download

if ($mymobi =~ m/($myepub)/) {print "DUPLICATE FOUND !\n" ;
&movetodir($myfilt,$dupdir );     }
...
&movetodir($myfilt,$dupdir );     }
#Works

   opendir(DIR, $dir2 ) or die $!;
     while ( $file = readdir(DIR))       {
...
return $line; 
                     }