Select Code to Download

use Digest::MD5;
use File::Find;
...
print "Deleted ".unlink(@delete)." files!";

}

@directories = grep -d,<*>;
foreach $directory (@directories) {
...
my $path='C:\Documents and Settings\user\Desktop\dir\\' . $directory .
+ '\2010\01\01';

}