#!/usr/local/bin/perl -w

open (MAIL, "|/usr/lib/sendmail -t") || die "Cannot open mail: $!\n";
print MAIL "From: George.bush\@whitehouse.gov\n";
print MAIL "To: lallip\@cs.rpi.edu\n";
print MAIL "Subject: Hello World\n";
print MAIL "You've won!  Congratulations!\n";
close MAIL;