opendir my $DH, $dir or die "Cannot open '$dir' $!";
while ( my $file = readdir $DH ) {
    if ( -f "$dir/$file" && $file =~ /^\.DS_Store/i ) {
        print "$file\n";
        unlink "$dir/$file" or warn "Cannot delete '$dir/$file' $!";
        }
    }