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

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