#!/usr/bin/perl strict

my $sendmail = "/usr/sbin/sendmail -t";
my $from = "From: Foo@Bar.com\n";
my $subject  = "Subject: Request to share information\n";
my $content  = "Hello...";
my $to       = "To: user\@ameritech.net\n\n";
my $recipient = "schafferm\@ameritech.net\n\n";
open(SENDMAIL, "|$sendmail $recipient") or die 
"Cannot open $sendmail: $!";
                                      
print SENDMAIL $subject;
print SENDMAIL $from;                 
print SENDMAIL $to;
print SENDMAIL $content;
close(SENDMAIL);