my $mailprogram = "/usr/sbin/sendmail -oi -t";
open (MAIL, "|$mailprogram") || ($errmsg = "Error $!");

print MAIL "To: $to_email\n";
print MAIL "From: $from_email\n";
print MAIL "Subject: $subject\n";