sub foo {
    open my $fh, ">", "file";
    foreach (1..200){
        print OUT "HelloWorld\n";
        print progress_bar($_, 200, 25, '=');
    }
    sleep 1; 
}