$name = substr $File::Find::name, length $File::Find::topdir;