use Net::POP3; my $server = 'pop.mail.yahoo.co.jp'; my $pop3 = Net::POP3->new($server) or die "Can't not open account."; my $account = 'ACCOUNT'; my $password = 'PASSWD'; my $count = $pop3->login($account, $password); $pop3->quit;
D:\>perl -MNet::POP3 -e "$pop3 = Net::POP3->new('pop.mail.yahoo.co.jp');$pop3->login('ACCOUNT','PASSWD');$pop3->quit;" D:\>