$ cat >a.pl
print <DATA>;
__END__
a
b
c

$ perl a.pl
a
b
c