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

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

print pageblocks::print_xmlheader();
print pageblocks::print_xmldtd();
 ...