in reply to Prototyping functions used in here-docs

You should write: 
dequote(<<'    END');

[download]
Im not sure if the spaces in front of the end are desired. Check that.
Boris

In Section Seekers of Perl Wisdom