my $pop = Net::POP3->new('localhost', Timeout => 30) or die("Can't instantiate Net::POP3 object");