use strict; package pageblocks; sub xmlheader { qq(\n); } sub xmldtd { qq( \n); } 1; # polygraph ##

##

#!/usr/bin/perl -wT

# index.cgi

print "content-type:text/html; charset=utf-8\n\n";
use strict;
use lib ('./');
use pageblocks;

print pageblocks::xmlheader();
print pageblocks::xmldtd();
print "
 ...
";