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