my $name = File::Spec->canonpath( $File::Find::name );