#!/usr/bin/perl -w

use strict;
use warnings;

eval {
    die 'insufficient arguments' unless @ARGV;
    open(IN, $ARGV[0]) or die "unable to open '$ARGV[0]'";
    while (<IN>) {
        printf "%4d:\t%s", $., $_;
    }
    close IN;
};
if ($@) {
    print "error:\t$@";
}