if (-d $file) {
   &scandir;