my $mailprog = '/usr/sbin/sendmail';
open my $mailhandle, '|-' "$mailprog -t"
    or die "Could not open mailhandle";
print $mailhandle $email_message;
close $mailhandle;