use strict;
use Mail::POP3Client;
my $pop = new Mail::POP3Client( USER     => "uid",
                               PASSWORD => "pw",
                               HOST     => "mail.*****.com" );
print join("\n",@{ $pop->{'tranlog'} });
$pop->Close();

##</code><code>##

+OK <281**.1103124993@pop03.****.******.net>
APOP  uid   431b9d95123c88179f74489d3549f4**
-ERR authorization failed
CAPA
USER  uid

Use of uninitialized value in pattern match (m//) at C:/Perl/site/lib/Mail/POP3Client.pm line 1008, <GEN1> line 2.

##</code><code>##

+OK <121**.1103125459@pop02.****.******.net> 
USER  uid 
+OK
PASS  pw
-ERR authorization failed