#!/usr/bin/perl -w
#################################################################################
## Author:      BRIAN HUNTER
## Date:        8/10/2020
## Email:       brian@sutechy.com
#################################################################################
use strict;

my $dir="/home/sutechy/bin";
opendir(DIR, $dir) or warn "PROBLEM WITH DIR $dir:$!\n";
while(defined(my $file = readdir(DIR))){
     next if( $file =~ m/^\./);
     print "FILE = $file\n";
}
closedir(DIR);
exit(0);