#!d:/perl/bin/perl.exe
$dir =shift || '.';
opendir Dir, $dir or die "dir not found \$! \n";
@files = readdir(Dir);
while(<@files>)
{
	print "$_ \n" if -d _; 
	
}