How's using subroutines that you have to close the string literal for better?

The problem in the original code is that the variables are defines in the pageblocks package, but then attempts to access them in the main package.

He should drop the my and use them as $pageblocks::xmlheader. And to prevent other code from modifying them, he might use Readonly.