##################################################################
sub SendMail {
my $fromemail=$_[0];
my $toemail=$_[1];
my $subject=$_[2];
my $line=$_[3];
open (MAIL, "|$mail_path") || &error1("打开邮件程序错误: $mail_path. 原因: $!");
print MAIL "To: $toemail\n";
print MAIL "From: $fromemail\n";
print MAIL "Reply-to: $fromemail\n";
print MAIL "Subject: $subject\n";
print MAIL qq|$line|;
print MAIL "\n\n";
close MAIL;