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