die 'insufficient arguments' unless @ARGV == 1;
open(IN, $ARGV[0]) or die "unable to open '$ARGV[0]'";
while (my $line = <IN>) {
    my $prefix = sprintf '%4d', $.;
    $line =~ s/$line/$prefix: $line/;
    print $line;
}
close IN;