Select Code to Download

while (my $file = next_file()) {
    print "$file\n";
}
sub next_file { <*> }

while (my $file = next_file()) {
    print "$file\n";
...
    print "$next\n";
}
sub next_file { <*> }