#!/usr/bin/perl

seek DATA,0,0;
print "$. $_" while <DATA>;
__DATA__

line 1
line 2
line 3