Perl 发邮件

  #/usr/lib/sendmail;
 my $sendmail = "/usr/sbin/sendmail";
 #宛先アドレス
 my $to = '11111/@gmail.com';
 #送信元アドレス
 my $from = "11111/@gmail.com";
 
 # ファイルハンドルをsendmailへ紐付け
 open(MAIL,"| $sendmail -t");
 
 # sendmailへコマンドの出力
 print MAIL "To: $to/n";
 print MAIL "From: $from/n";
 print MAIL "Subject: $subject/n";
 print MAIL "/n";
 print MAIL "$message/n";
 close(MAIL);
  print "<tr><td>送信が成功しました</td></tr>"."/n";
  print "<tr><td>ご協力有難うございました</td></tr>"."/n";