#!/usr/bin/perl

use strict;
use warnings;

print <<"TEXT";
This
is
a
@{[ PrintHereDoc() ]}
here-doc.
TEXT

print "END\n";

# subroutine
sub PrintHereDoc
{
	print "print statement inside a ";
	return 0;
}

##</code><code>##

This
is 
a
print statement inside a
here-doc.

##</code><code>##

print statement inside a This
is
a
0
here-doc.