use Mail::Box::POP3;
my $folder = new Mail::Box::POP3 
    username    => $user,
    password    => $pwd,
    server_name => $server,
    folder      => $ENV{MAIL},
    ;