use vars qw/*name/;
   *name = *File::Find::name;