Select Code to Download

    # Good
    $CGI::DISABLE_UPLOADS = 0;
...
    # Bad
    my $q = CGI->new;
    $CGI::DISABLE_UPLOADS = 0;

{
    no strict 'refs';
...
        $length += length($_);
    }
}

#!D:/perl/bin/perl.exe -wT
use CGI qw/ :standard /;
...
          end_html;
    exit;
}