Select Code to Download

use strict;
use warnings;

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

OUTPUT:

...
mkdir four
mkdir four/five
mkdir four/five/six