my $pop3 = Net::POP3->new($server, Timeout => 60) or die $!;