or

   1: die 'insufficient arguments' unless @ARGV;
   2: open(IN, $ARGV[0]) or die "unable to open '$ARGV[0]': $!";
   3: while (my $line = <IN>) {
   4:     printf "%4d: %s", $., $line;
   5: }
   6: close IN;