#!/usr/bin/perl

$path=".";

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

@files = readdir(DIR);


foreach (@files) {

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

		  }