Select Code to Download

#!/usr/bin/perl -w

...
my $perms   = 0777;

my_mkdir($path, $perms) or die "ERROR: $!\n";