Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
</body>
</html>
FORM

$VAR1 = bless( {
                 '.globals' => {
                                 # skipped
...
                 '.cgi_error' => '500 Bad read on POST! wanted 31, got
+ 0',
                 '.mod_perl' => 1
               }, 'CGI::Simple' );

#!c:/perl/bin/perl.exe -wT
use strict;

...
read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
print "Content-type: text/plain\n\n";
print $buffer;