my $pop = Net::POP3->new($email_server, Debug=>1) or die "Can't connect to $email_server: $! \n";