open(MAIL, "|/usr/sbin/sendmail -t") || die "Cant send mail. Reason: $!";
print MAIL "to:recipient\@domain.net\n";
print MAIL "from:sender\@domain.net\n";
print MAIL "subject:test !\n";
print MAIL "hi \n\n";
close(MAIL);