perl -ML -e 'Data::Dump::dd(File::Spec::Functions::splitpath($^X))'