You can also turn on debugging in Net::POP3 by adding it after the server in new:

my $pop = Net::POP3->new($mailserver, Debug => 1);

That should get it to show you whats going on behind the scenes as the script runs.