my $dirname=cwd();
my $sys_get_dirs = "ls -l $dirname | egrep \'^d\'";
my @dirlist=`$sys_get_dirs`;