#!/bin/perl5 -w
# $Id: catn,v 1.1 1999/09/27 17:56:57 annis Exp $
# $Source: /u/annis/uw-unix/perltut/RCS/catn,v $
#
# Do 'cat -n' for all files.

use strict;

while (<ARGV>) {
    print sprintf("%5i $_", $.);
}

# EOF