$envid = 'Original-Envelope-ID: <whatever-envid-is>';
chop(my $date = `date "+%m/%d/%y-%H:%M%p GMT-5"`)
my $mailer = qx!which sendmail!;
if ( $? eq 0 ) {
         $recip = 'thereal@domain.com';
      $fromaddr = 'realname <bla@bla.net>';
       $subject = "thesubject";
       $xmailer = "cgi"; 
   $mailmessage = qq|
    A text message...
    |;

} else { $mailer = "failed"; }