#!/lusr/bin/perl

use warnings;

print <<EOF;

This is a here-document.
It starts on the line after the two arrows,
and it ends when the text following the arrow is found 
at the beginning of a line, like this:

EOF