print "Content-type: text/html\n\n"; $name1 = 'whiteperl'; $name2 = 'batman'; format STDOUT = @<<<<<<< @<<<<<<<< $name1 $name2 . $~ = STDOUT; # Is this necessary? print STDOUT;