# Open The Mail Program 
open(MAIL,"|$mailprog -t");

print MAIL "To: $FORM{'tomail'}\n";
print MAIL "From: $FORM{'frommail'} ($FORM{'fromname'})\n";
print MAIL "Subject: $FORM{'subject'}\n\n";
print MAIL "Hi $FORM{'toname'}!\n\n";
print MAIL $FORM{'message'};
print MAIL "\n\n";
print MAIL "Regards,\n\n";
print MAIL "$FORM{'fromname'}\n\n";
close (MAIL);