『AskWan』

use Mail::SendEasy ;

  my $mail = new Mail::SendEasy(
  smtp => 'localhost' ,   #SMTP服务器
  user => 'foo' ,           #认证用户名
  pass => 123 ,           #认证密码
  ) ;
#SMTP端口默认为25，连接超时时间默认为120秒
  
  my $status = $mail->send(
  from    => 'sender@foo.com' ,   #发送者邮件地址
  from_title => 'Foo Name' ,         #发件人名字或标题
  reply   => 're@foo.com' ,           #回复信件地址
  error   => 'error@foo.com' ,        #发送出错信息地址
  to      => 'recp@domain.foo' ,     #接受邮件地址
  cc      => 'recpcopy@domain.foo' , # 接受邮件副本地址
  subject => "MAIL Test" ,         # 邮件主题
  msg     => "The Plain Msg..." ,  #文本格式邮件内容
  html    => "<b>The HTML Msg...</b>" , #html格式邮件内容，有这个则msg无效
  msgid   => "0101" , #给邮件头加一个ID号
  ) ;
  
  if (!$status) { print $mail->error ;}

if ($ENV{'REQUEST_METHOD'} eq 'POST') {
  read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
  $buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
  ($name, $value) = split(/=/, $pair);
  $name =~ tr/+/ /;
  $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $value =~ tr/+/ /;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $FORM{$name} = $value;
}

open (MAIL,"|/usr/lib/sendmail");
print MAIL "To: to\@e.mail\n";
print MAIL "From: from\@e.mail\n";
print MAIL "Subject: Subject\n\n";
print MAIL "Body\n";
close MAIL;

$ip = $ENV{'REMOTE_ADDR'};
@digits = split (/\./, $ip);
$address = pack ("C4", @digits);
$host = gethostbyaddr ($address, 2);