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