#!/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;