Select Code to Download

open(IN,"somefile.pl");
undef $/;
$string = <IN>;

$string = q{ 
print "Content-type:text/html\n\n";
...

print "---------------\n";
print $string,"\n";