my routine =
 sub {  open OUT, ">file";
        foreach (1..200){ print OUT "HelloWorld\n" };
        sleep 1; 
     };
print_progress_bar($routine);