#!/usr/bin/perl -w
my $recipient = "xxx\@mydomain.net";
my $sender = "yyy\@mydomain.net";

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