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