Select Code to Download

BEGIN {
  use CGI::Carp qw(carpout);
...
    die("Unable to open mycgi-log: $!\n");
  carpout(LOG);
}