my @list = glob($dir . '/*');
foreach my $file (@list) {