Perl - удаление файлов

1) perldoc -f glob

2)

#!/usr/bin/perl -w

while(</home/user/files/copy_for_delete/*.html>){
#do{unlink $_ or die "cant remove: $!"} if m!.*\.html$!;
print $_," удален\n";
}

Сначала просмотришь вывод print, затем, 2 раза убедившись, что удаляться будет то, что надо, а не от корня, раскомментируешь строчку.

3) с консоли

perl -e 'do{unlink $_ or die "cant remove: $!"; print $_," deleted\n"} while </patch/to/dir/*.html>'