perl -MFile::Spec -e " die File::Spec->catfile( qw[ foo /bar baz ], shift ) "  bar