#
#this program uses the perl module Mail
#to send e-mail
use Mail::Mailer;
#
#use sendmail
#
$type='sendmail';
#
#create mail
#
$mailprog=Mail::Mailer->new($type);
#
#tell it
#    1) where to send the e-mail
#    2) who sent the e-mail
#    3) the subject of the e-mail
#
%headers = (
              'To' => '[email protected]',
              'From' => '[email protected]',
              'Subject' => 'When you die i get you'
           );
#
#open and send the e-mail
#
$mailprog->open(\%headers);
#
#send the letter body
#
print $mailprog "hello:\n";
print $mailprog "\n";
print $mailprog "this is the email text sent by satan\n";
print $mailprog "\n";
print $mailprog "truely yours\n";
print $mailprog "satan\n";
#
#close the letter and force it to be send
#
$mailprog->close;