use Apache::TieHandle ();
tie *STDOUT => 'Apache::TieHash';
print "Content-type: text/html\n\n" .
"Ah, just like CGI\n";
*** NOTE *** There is no need to use this module unless your version of Perl is <= 5.003 You must apply Sven Verdoolaege's patch 'pp_hot.patch' for it to work