my $name = ( File::Spec->splitpath($path) )->[2];