Help for this page
open(IN,"somefile.pl"); undef $/; $string = <IN>;
$string = q{ print "Content-type:text/html\n\n"; ... print "---------------\n"; print $string,"\n";