#!perl.exe
use CGI qw(:all);
print header();
if (1=1) {
  print "blah<BR>";
}