#! /usr/bin/perl -w

use strict;

print STDOUT<<text;
foo
bar
text