# print number of msg or complain about failed login
if (defined $a[0])
{
   print "Messages: $a[0]\n";
}
else
{
   print "Login failed.\n";
}
$pop->quit();