#!/usr/bin/perl
use strict;
use warnings;

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

print "END\n";

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