opendir(DIRHANDLE,"/usr/darren") || die "file to open";

##</code><code>##

@FILES = grep !/^\.\.?$/, readdir DIRHANDLE;

##</code><code>##

my @dirs=grep -d, </usr/darren/*>;  # Whoa it's one line!!