#!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 _; 
    
}
[download]

Edited by Chady -- code tags.