So how to write a perl program to solve this issue....Help needed...
my $dirSearch = "/default/main/WORKAREA/Content/templatedata/category/datatype/data";chdir($dirSearch);opendir(DIRHANDLE, $dirSearch) || die "Can't open directory $dirSearch";my @my_files_found = readdir(DIRHANDLE);foreach my $file (@my_files_found){my $theCompleteFile = $dirSearch."/".$file;if (!-d $theCompleteFile){### DO WHATEVER YOU NEED}}