my $mail_prog = '/usr/lib/sendmail';

my $sender    = 'me@mine.com';
my $recipient = 'you@yours.com';
my $subject   = 'Shopping';

open (MAIL, "|$mail_prog -t -i") or die "Can't open $mail_prog $!";
print MAIL<<MESSAGE;
To: $recipient
Reply-to: $sender 
From: $sender 
Subject: $subject

Thanks for shopping with Perlmonks

love

vroom
MESSAGE
close MAIL;