use Net::POP3;

my $pop = Net::POP3->new('www.myhost.com', Timeout => 90);
if ($pop->login('listaddress+myhost.com','pass') > 0) {
  my $msgnums = $pop->list;
  foreach my $msgnum (keys %$msgnums) {
    my $msg = $pop->get($msgnum);
  }
}
$pop->quit;

##</code><code>##

use Mail::Box::MH;
my $folder = new Mail::Box::MH folder => '/mypath/myspecialmailboxfolder';

##</code><code>##

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