my @only_files = grep {-f "$dir/$_"} readdir(DIR);
foreach my $file (@only_files) {
	&process_file ($file);
}