#!/usr/local/bin/perl
$com="dir /A:D /O:N /B >dirlist.txt";
system($com);
open (DRR, "dirlist.txt");
my @alldir=<DRR>;
$num=@alldir;
$inc=0;
while ($inc < $num)
{
$line = @alldir[$inc];
$line =~ s/\n//;
$com="md \"$line\\data\"\n";
system($com);
++$inc;
}
close (DRR);
$com="del dirlist.txt\n";
system($com);