$ perl
print <DATA>;
__DATA__
line 1
line 2
^D
line 1
line 2