sendmail ('god@heaven.com', 'die.puny@earthling.net', 'Test', 'This is a test');

sub sendmail {
    my ($from, $to, $subject, $body) = @_;

    open(MAIL, "|/usr/lib/sendmail -oem -t -oi -f $from");
	print MAIL "To: $to\n";
	print MAIL "Subject: $subject\n\n";
    print MAIL "$body\n";
    close MAIL;
}