Is there a 'debug' thing for pop3 commands ?
Change:
my $pop3 = Net::POP3->new($ServerName, Debug => 0) or die "Couldn't log on to server";
to:
my $pop3 = Net::POP3->new($ServerName, Debug => 1) or die "Couldn't log on to server";.