Select Code to Download

my ($read, $found);
for (;;) {
...
}

... do something with $read, $found and @foos ...