Help for this page

Select Code to Download

Select or download this

use File::Util;

unlink for grep { $_ =~ /xml$/i }
File::Util->new->list_dir('/your/directory', '--recurse');

Select or download this

use File::Util;

...

unlink for grep { $_ =~ /xml$/i } $f->list_dir('/your/directory', '--r
+ecurse');