使用Net::SMTP发送邮件的简易例子。

流浪者

#!/usr/bin/perl
use strict;
use Net::SMTP;
my $to = 'jdzhh2000@21cn.com';
my $from ="jdzhh2000";#需要使用SMTP服务器认证的用户名。如jdzhh2000@21cn.com请使用jdzhh2000.
my $comment="Windows95/98,NT下如何发EMAIL";
my $smtp = Net::SMTP->;new('smtp.163.com',HELLO=>;"192.168.0.168",Debug=>;1,) or die "error!";
$smtp->;auth("用户名","密码";
$smtp->;mail($from);
$smtp->;to($to);
$smtp->;data();
$smtp->;datasend("To: $to\n";
$smtp->;datasend("From: $from\n";
$smtp->;datasend("Subject:example";
$smtp->;datasend("$comment\n";
$smtp->;datasend("X-MyToken: ABCD\n";
$smtp->;datasend("\n";
$smtp->;datasend("A simple test message\n";
$smtp->;dataend()or print "FAILED send!smtp->;message()\n";
$smtp->;quit;
print "\nMAIL sent OK\n";