And it freaks badly if you have any filenames with whitespace in them, especially a newline. This same thing in Perl works just fine in one process:

#!/usr/bin/perl
opendir DOT, ".";
unlink grep { -f and  not  /\.html$/ } readdir DOT;
[download]

-- Randal L. Schwartz, Perl hacker