#!/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 ...