# perl thrprog.pl
Done 0.2 of 1000
Done 0.31 of 1000
Current count is 2
Done 0.31 of 1000
Current count is 1
Done 0.31 of 1000
Current count is 3
Done 0.31 of 1000
Current count is 4
Done 0.31 of 1000
Current count is 5