time perl -e '$_=[];{$/=\000,@$_=<>}; my $count=@$_;print $count, " lines\n";' </tmp/16   
1 lines
0.47sec 0.28usr 0.18sys (99.77% cpu)