Perl 使用 sendmail 程序发送邮件

清华大佬耗费三个月吐血整理的几百G的资源,免费分享!....>>>

#!/usr/bin/perl

$from="$me\@mydomain.com";
$to="you\@yourdomain.com";
$subject="Test email";

$sendmailpath="/usr/sbin/sendmail";

$message = "This is a test e-mail using Sendmail\n\nFrom me\n\n";

open (SENDMAIL, "| $sendmailpath -t") or die "Cannot open $sendmail: $!";

print SENDMAIL "Subject: $subject\n";
print SENDMAIL "From: $from\n";
print SENDMAIL "To: $to\n\n";

print SENDMAIL "$message";

close (SENDMAIL);