my $dirs = `ls -d *`;
my @dirs = split ' ', $dirs;