my @files = grep(/\w/,readdir($fh));
#returns folder & files
	my @dirs = grep {/\w/ and -d} readdir($fh);
#returns blank