try the leightweight File::Path::Tiny, it does what you want.
In reply to Re: Creating multiple level directory structure by tospo in thread Creating multiple level directory structure by perlpal