use warnings;
use strict;
use autodie qw/open close/;
use English;

open my $fh, '<', $ARGV[0];
while ( my $line = <$fh> ) {
    print $INPUT_LINE_NUMBER, " ", $line;
}
close $fh;