#!/usr/bin/perl
my $dir=\'/home\';#путь к директории
my (@in_dir, @dirs);
opendir (DIRS, $dir)||die("Can not opendir, reason $!");
(undef,undef, @in_dir)=readdir(DIRS);
closedir DIRS;
foreach my $elm(@in_dir){
if (-d "$dir/$elm"){push(@dirs, $elm);}
}
print @dirs;