#!/usr/bin/perl

opendir(FILES,".");
@files=readdir(FILES);
closedir(FILES);

@dirs = grep{-d && $_ ne "." && $_ ne ".." } @files;
print join(" ",@dirs);

#print join("\n", @dirs);
print "\n";