perl -e "while(<>){} print qq($.\n);" filename [download]
In reply to Re: how to invoke unix commands in perl by coolmichael in thread how to invoke unix commands in perl by Anonymous Monk