@directories = grep -d,<*>;
foreach $directory (@directories) {

#CHANGE ME!!!
my $path='C:\Documents and Settings\user\Desktop\dir\\' . $directory . '\2010\01\01';

}