Perl的Mail：：POP3Client模块和Gmail通信实例（imap和exchange）学会了吗

my $U=’User.Name＠gmail.com’;
my $P=’uSeR.pAsSwORd’;
my $X=new MIME::Parser;
$X -> output_dir(‘C:\\download’); #directory to save attachment

my $G=Mail::POP3Client -> new (
USER=> $U,
PASSWORD=> $P,
HOST=> ‘pop.gmail.com’,
PORT=> 995,
USESSL=> ‘true’) or die “Can’t Connect The Server.\n”;

for $i (1 .. $G->Count())
{
my $C=$G->HeadAndBody($i);
my $R=$X->parse_data($C);
}
$G->Close();