Select Code to Download

#!/usr/bin/perl
read(STDIN,$buf,$ENV{'CONTENT_LENGTH'});
print "Content-Type: text/html\n\n";
print $buf;

blah
blah
...

------------------------2325446af455
....