my $pop = Net::POP3->new('localhost', Timeout => 30) ||
   die "Couldn't connect to localhost\n";

$pop->login($user, $pass) ||
   die "Couldn't login as $user with $pass\n";

# etc...