#!/usr/local/bin/perl
use strict;
use warnings;
use File::Util;

my($fileHandle) = File::Util->new();
$fileHandle->make_dir('/XXX/YYY/ZZZ/');