$fs = (-s "@ARGV" );
$rowcount=0;

while () {


	Run whatever loop you want...


if  ($rowcount % 1000 == 0 ) {
        print "\r", int((tell INDATA) /$fs*100), "% done = $rowcount rows ";}
    $rowcount++;
}