linenum.pl

#!/usr/bin/perl

while(<>) {
    print "${.}. $_"
}