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