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

my $dirtoget = './CSOC';

opendir( IMD , $dirtoget ) or die "Unable to open $dirtoget : $!";
for my $file ( readdir IMD ) {
    my $fqp = $dirtoget . '/' . $file;
    print -d $fqp ? "$fqp is a directory\n" : "$fqp is not a directory\n";
}