#!/usr/bin/env perl
use warnings;
use strict;
use 5.010;

my @dirs;
my $dh;
opendir ($dh, '/home/setup_scripts/mt') or die "Cannot open dir - $!";
  @dirs = grep  {-d $_} readdir $dh ;
  print  "@dirs \n";
  close $dh;

opendir ($dh, '/home/setup_scripts/mt') or die "Cannot open dir - $!";
  @dirs = readdir $dh ;
  print  "@dirs \n";
  close $dh;

##</code><code>##

. .. 
. .. .DS_Store MTOS-4.37-en MTOS-4.37-en.zip 

##</code><code>##

.DS_Store 
. .. .DS_Store MTOS-4.37-en MTOS-4.37-en.zip 

##</code><code>##

. .. .DS_Store 
. .. .DS_Store MTOS-4.37-en MTOS-4.37-en.zip 

##</code><code>##

mac-pro:setup_scripts wrinkles$ ls -al mt
total 11536
drwxr-xr-x   5 wrinkles  staff      170 Jan 19 13:22 .
drwxr-xr-x  12 wrinkles  staff      408 Jan 19 20:32 ..
-rw-r--r--@  1 wrinkles  staff     6148 Jan 19 20:04 .DS_Store
drwxr-xr-x@ 29 wrinkles  staff      986 Jun 21  2011 MTOS-4.37-en
-rw-r--r--@  1 wrinkles  staff  5895060 Sep  3 22:22 MTOS-4.37-en.zip