sendmail 腳本shell求助

doking2008

我的服務(wù)器需要定時(shí)發(fā)送郵件帶日志syslog到指定地址 shenkk@gmail.com

我的unix服務(wù)器有默認(rèn)的sendmail服務(wù)。
我通過telnet 127.0.01 25
mail from:
rcpt to:
data

命令發(fā)送test郵件正常，現(xiàn)在求助sendmail腳本，可以帶附件的，我要發(fā)送日志到指定郵件地址，謝謝。

doking2008

#!/usr/bin/perl
# Set Variables
$mailprog = "/usr/bin/sendmail";
$youremail = "rickyao@soim.net";
$yourname = "Rickyao";
$file = "/var/log/message";

$email = "rickyao@soim.net";

# Send file to user in email

open(MAIL, "|$mailprog -f $yourname -t $youremail") or die;
# Create headers
print MAIL "From: $yournamen";
print MAIL "To: $email n";
print MAIL "Subject: File: $file (uuencoded) n";
print MAIL "Requested File: $file n";
open(FILE, "uuencode $file $file") or die;
while( <FILE>) { print MAIL; };
# Close the file and finish sending the mail
close(FILE);
close(MAIL);

網(wǎng)上查了點(diǎn)代碼，結(jié)果報(bào)錯(cuò)：Died at ./test.sh line 12.
open(MAIL, "|$mailprog -f $yourname -t $youremail") or die;