use strict;
use warnings;

use File::Path qw(make_path); 
make_path("one/two/three", "four/five/six" , {verbose => 1});

##</code><code>##

OUTPUT:

C:\Perlmonks>make_paths.pl
mkdir one
mkdir one/two
mkdir one/two/three
mkdir four
mkdir four/five
mkdir four/five/six