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