use strict;
use warnings;

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