You can use Mac::Path::Util under the same terms as Perl itself.