eval  join '', '$dirth->', ( map { '{\'' . $_ . '\'}' } split '/', $File::Find::name ), '=""';