Select Code to Download

my $iter = TQDM::tqdm(1..10);

while (<$iter>) {
    print "got [$_]\n";
}

sub iterate ($&) {
    my ($ary, $code) = @_;
...
iterate tqdm(1..10), sub {
    print "got [$_]\n";
};