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