if(open MAIL, "|/usr/lib/sendmail") {
  print MAIL <<EOF;
content of form
EOF
} else {
  print "error message";
}