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