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