Normally, you can inform perl to change its notion of line count by writing special comments:

#line 55
warn ;
[download]

The '#line 55' comment informs perl that the next line shall be number 55; thus, because the input numbers have now changed, the output of this code is Warning: something's wrong at try.pl line 55. . Is this what you are looking for?