#!/usr/bin/perl -w

use strict;

#  Test to see if $. really does break when reading from DATA.

{
  foreach (<DATA>) { print "Try line $.:$_"; }
}

__DATA__
This is line 1.
This is the second line.
Here is line 3.
The last line is line 4.