Select Code to Download

  $const{mail_to} = $1 if $mail =~ m/To: (.*?)\n/s;

  ($const{mail_to}) = $mail =~ m/To: (.*?)\n/s;

use IO::File;
use File::Copy;
...
  move( $file => $maildir.'parsed/'.$currentfile ) or unlink $file or
    die "Error moving/deleting $file - $!\n";
}