use Net::POP3;
 use Mail::Sender;
 $pop = Net::POP3->new($server);
 $pop->login( $username, $password)
   or die "Failed to login!\n";
 $pop->quit();
 $sender = new Mail::Sender {smtp => $server, ...};
 ...