foreach my $file (glob($dir . '/*')) {