perl批量下載gmail附件的代碼

    最近在寫一個從gmail批量下載附件的程序，用到了 mail::pop3client 和 mime::parser 2 個模塊
    實現(xiàn)代碼：
    代碼如下:
    use mail::pop3client;
    use mime::parser;
    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();