Select Code to Download

$ perl -MData::Dumper -e "use CGI; my $q = CGI->new;print $q->header; 
+print Dumper($q)"
Content-Type: text/html; charset=ISO-8859-1
...
                 '.parameters' => [],
                 '.fieldnames' => {}
               }, 'CGI' );

use CGI;
my $q = new CGI;
...
# do a whole bunch of stuff

print "header printed!" if exists $q->{'.header_printed'};