Select Code to Download

while (<DATA>) {
   die "Error!" if $_ eq ".\n";
...
.
d
e

Error! at script.pl line 2, <DATA> line 4.

<DATA>;
die "Error!";
...
__DATA__
a
b

Error! at script.pl line 2, <DATA> line 1.

<DATA>;
close(DATA);
...
__DATA__
a
b

Error! at script.pl line 3.

<DATA>;
$. = 100;
...
__DATA__
a
b

Error! at script.pl line 3, <DATA> line 100.

<DATA>;
$. = 0;
...
__DATA__
a
b

Error! at script.pl line 3.

Error! at script.pl line 3, filename.dat line 100.