#!/usr/bin/perl

$path=".";

opendir (DIR, $path) or die "could not open directory";

@files = map {"$path/$_"}, readdir(DIR); #maps the path into your array


foreach (@files) {

print  "$_ \n" if (-d $_) ;

          }