This is a stupid attempt to re-invent the wheel

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

##

#!/usr/bin/perl -wT

use strict;
use lib ('./');
require pageblocks;

print "content-type:text/html; charset=utf-8\n\n";

$xmlheader;
$xmldtd;

This is a stupid attempt to re-invent the wheel




 ...