my $pop = Net::POP3->new($pop3) or die "Unable to connect: $!";