#!/usr/bin/perl
use strict;
use warnings;
use CGI ":all";
use CGI::Carp qw(fatalsToBrowser set_message);

  BEGIN {
    sub handle_errors {
        my $msg = shift;
        print "<h1>ERROR</h1><br>";
        print "$msg"
    }
    set_message(\&handle_errors);
  }

open(MAIL,'|/usr/sbin/sendmail -oi -t') or die $!;
print MAIL 'To: myemail\@myemail.com\n';
print MAIL 'From: serveremail\@theserver.com\n';
print MAIL 'Subject: Blah\n\n';
print MAIL 'Put main message in here.\n';
close (MAIL);

print header, "hi";