#!/usr/bin/perl -w# Usage: perl This_Program.pl D:\\Your\\Folderuse strict;use Win32;use File::Find;$dir = shift;find sub { unlink $name if -f File::Find::name;}, "$dir";
unlink
