use CGI ':all';

our $cgi_out = "";

open OUT, ">&STDOUT";
close STDOUT;
open STDOUT, '>', \$cgi_out;
print "Hello World!\n";

print OUT header();
print OUT $cgi_out;