Select Code to Download

use CGI qw(:all);
$ENV{PATH} = "";
...
} else {
  print header(-status => '403 Forbidden');
}

#!/usr/bin/perl -Tw
use CGI::Carp qw(fatalsToBrowser);
...
} else {
  print header(-status => '403 Forbidden');
}