#!/usr/bin/perl -w 
##############################################

use strict;
use diagnostics;
use warnings;
use File::Path;

mkpath(["/usr/tmp/over/the/rainbow"],1,0755);