use strict;
use gfrmGlobals;

my @files = ();
my $flNm = "";

opendir (DIR, $GCdfltDBexpPrmPthNm) || die "can't open directory\n";
@files = readdir(DIR); 
closedir (DIR); 

foreach $flNm (@files) 
{ 
if ( -f $flNm) { print "is a file: $flNm\n"; }
elsif ( -d $flNm) { print "is a dir: $flNm\n"; }
else { print "neither file nor dir: $flNm\n"; }
}