#!/usr/bin/perl -w

use strict;

my $path = "/usr/bin";

opendir DIR, $path or die "Couldn't read directory: $!";
    my @directories = grep { -d "$path/$_" } readdir DIR;
closedir DIR;

foreach (@directories) {
    print $_, "\n";
}