#!/usr/local/bin/perl -w use File::Path; my $count = mkpath(\@ARGV, 1, 0711); print "The number of directories created is $count\n";