(0 == ($i % $interval)) and printf " Progress %5d/%5d\e[K\r", $i, $total;