Guess I's been spoilt by dem fancy computairs wif all dat memoree. =) And I never tried to use $. before either, THAT would have made the problem clearer...

#!/usr/bin/perl -w

open FH, "</really/huge/file" or die "Eeek, $!\n";

foreach (<FH>) {
   print "$. - $_";
}
[download]

Ow! Every line has the same line number! =)

--
$you = new YOU;
honk() if $you->love(perl)