$ cat cccc
zzz
999
$ cat cccc | perl -e '
> print <<'EOT';
> abc
> 123
> EOT
> print while <>;'
abc
123
zzz
999
$