Select Code to Download

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

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

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