use Cwd;

opendir my $dir, cwd() or die "Can't read ".cwd().": $!\n";
my @contents = readdir $dir;
closedir $dir;

my @dirs = grep{ -d and $_ ne '.' and $_ ne '..' } @contents;
print "DIR $_\n" for @dirs;

#my @files= grep{ -f } @contents;
#print "FILE $_\n" for @files;