Select Code to Download

my $query = new CGI
  or die "Couldn't create CGI object!\n";
...
  or die "Couldn't start sendmail: $!\n";
close(MAIL)
  or die "Error closing sendmail: $!, exit status $?\n";