my $dir = "e:\\core\\ops_utilities\\";
opendir DIR,  $dir or die $!;
my @files = grep {!-d $dir.$_} readdir(DIR);