18 lines
153 B
Perl
Executable File
18 lines
153 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
# $Id: $
|
|
|
|
use strict ;
|
|
|
|
|
|
open( READCMD, "cat -n /etc/passwd |" ) ;
|
|
|
|
my @out = <READCMD> ;
|
|
|
|
close( READCMD ) ;
|
|
|
|
print @out ;
|
|
|
|
exit ;
|
|
|