懂Perl的大哥们冒个泡啊。初学，问几个问题。
#!/usr/bin/perl use Net::SMTP; #use Net::SMTP_auth; #加上这句为什么就有错误说 Can't locate.....use MIME::Base64; $mail_server='smtp.163.com';$mail_from='yangkunhenry@163.com';$mail_to='yangkunvanpersie@163.com';$smtp=Net::SMTP->new("$mail_server",Debug=>1);#这句又是什么意思 new是怎么用的？$smtp->mail("$mail_from");$smtp->to("$mail_to");$smtp->data();$smtp->datasend("Subject: 1 subject\n");$smtp->datasend("\n");$smtp->datasend("I am a cat!\n");$smtp->datasend("\n");$smtp->dataend();$smtp->quit;Net::SMTP>>> Net::SMTP(2.30)Net::SMTP>>> Net::Cmd(2.27)Net::SMTP>>> Exporter(5.60)Net::SMTP>>> IO::Socket::INET(1.31)Net::SMTP>>> IO::Socket(1.30)Net::SMTP>>> IO::Handle(1.27)Net::SMTP=GLOB(0x19e0398)<<< 220 163.com Anti-spam GT for Coremail System (163com[20090903])Net::SMTP=GLOB(0x19e0398)>>> EHLO localhost.localdomainNet::SMTP=GLOB(0x19e0398)<<< 250-mailNet::SMTP=GLOB(0x19e0398)<<< 250-PIPELININGNet::SMTP=GLOB(0x19e0398)<<< 250-AUTH LOGIN PLAINNet::SMTP=GLOB(0x19e0398)<<< 250-AUTH=LOGIN PLAINNet::SMTP=GLOB(0x19e0398)<<< 250-coremail 1Uxr2xKj7kG0xkI17xGrUDI0s8FY2U3Uj8Cz28x1UUUUU7Ic2I0Y2UrokRsGUCa0xDrUUUUjNet::SMTP=GLOB(0x19e0398)<<< 250 8BITMIMENet::SMTP=GLOB(0x19e0398)>>> MAIL FROM:<yangkunhenry@163.com>Net::SMTP=GLOB(0x19e0398)<<< 553 authentication is required,smtp14,EsCowKBbo7unM5tLQLwSCg--.3068S2 1268462504Net::SMTP=GLOB(0x19e0398)>>> RCPT TO:<yangkunvanpersie@163.com>Net::SMTP=GLOB(0x19e0398)<<< 503 bad sequence of commandsNet::SMTP=GLOB(0x19e0398)>>> DATANet::SMTP=GLOB(0x19e0398)<<< 503 bad sequence of commandsNet::SMTP=GLOB(0x19e0398)>>> Subject: 1 subjectNet::SMTP=GLOB(0x19e0398)>>> I am a cat!Net::SMTP=GLOB(0x19e0398)>>> .Net::SMTP=GLOB(0x19e0398)<<< 502 Error: command not implementedNet::SMTP=GLOB(0x19e0398)>>> QUITNet::SMTP=GLOB(0x19e0398)<<< 421 closing transmission channel