#!/usr/bin/perl
<DATA>;
$.= 39;
print "$. $_" while <DATA>;
__DATA__

line 1
line 2
line 3