All I can think of at the moment is to prefix all of the lines of your heredoc-pod with some character ("#" e.g.), then strip it before you print it...perhaps like this:

print STDOUT do {(my $tmp = <<EOT) =~ s/^#//mg; $tmp };
#this is
#a test
EOT
[download]