#!/usr/bin/perl -w
use strict;

my $dir = "C:/Documents and Settings/mydirectory/Desktop/KOMP";
opendir (D, $dir) || die "can't open directory $dir";
my @sub_dirs =  grep {!/^\./ && -d "$dir/$_"}readdir D;

print join("\n",@sub_dirs),"\n";