If you are returning things instead of printing in a sub, then the name of your subs flatly lie about the purpose ...

print pageblocks::print_xmlheader();
print pageblocks::print_xmldtd();
[download]

... and may make someone else doubt the purpose of print().