Select Code to Download

use Net::POP3;

...
  }
}
$pop->quit;

use Mail::Box::MH;
my $folder = new Mail::Box::MH folder => '/mypath/myspecialmailboxfold
+er';

    my $MHmsg = join "",@$msg;
    $folder->addMessage($MHmsg);