my $result_path = $dir . '/results';

##</code><code>##

 
next unless -d 

##</code><code>##

 
 chdir $dir . '/' . $subdir;