Help for this page

Select Code to Download

Select or download this

# Iterate over the content of foo/bar
while (my $file = $dir->next) {