use Net::POP3;

my $pop = Net::POP3->new($host);
$pop->login($username, $password)
   or warn("Unable to connect to POP server. "
          ."Attempting to connect to SMTP server anyway\n");