Hi Nansh
You can use File::Util for creating sub directories.

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

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