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

# show how here docs can repeat the same text multiple times
print <<"EOF" x 10
blah blah
blah
EOF