Have you seen File::Path in the distribution? Contains mkpath which does pretty much the same thing, and portably across various platforms.

-- Randal L. Schwartz, Perl hacker