sub SendMail{
my %MAIL = @_;
my $RESULT = "SendMail to".$MAIL{'TO'};
use IPC::Open2;
open2(*READA,*WRITEA,"/usr/lib/sendmail -oi -t");
print WRITEA "To:$MAIL{'TO'}\n";
print WRITEA "From:$MAIL{'FROM'}\n";
print WRITEA "Subject:$MAIL{'SUBJECT'}\n\n";
print WRITEA "$MAIL{'BODY'}\n";
close WRITEA;
while ($line = <READA>){$RESULT .= "<li>$line\n";}
close READA;
return $RESULT;
}############################ end SendMail