#!/usr/bin/perl -w

# $Id: $

use strict ;


open( READCMD, "cat -n /etc/passwd |" ) ;

my @out = <READCMD> ;

close( READCMD ) ;

print @out ;

exit ;