Select Code to Download

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