# pageblocks.pm package pageblocks; my $xmlheader=> print "\n"; my $xmldtd=> print " \n";