$file_full_path = "$path/$_"; if (-d $_){ ... process($_);