opendir my $dh, /usr/darren' or die "opendir: $!";
my @dirs = grep { -d } map { "/usr/darren/$_" } grep { !/^\.\.?$/ } readdir $dh;
closedir $dh or die "closedir: $dh";  # this line optional