# send e-mail
my $sendmail;
$sendmail="/usr/sbin/sendmail -t";
open(SENDMAIL , "| $sendmail") ||die("unable to open");
print SENDMAIL  "From: $txt_email\n";
print SENDMAIL  "To: abc123@hotmail.com\n";
print SENDMAIL  "Reply-To: abc123@hotmail.com \n"; 
print SENDMAIL  "Subject: YOUR PIZZA ORDER\n" ;
print SENDMAIL &print_details;
close (SENDMAIL);