if (!(-e $newdir)) { mkdir $newdir, 0766 or die "couldn't mkdir $newdir because: $!\n"; chmod (0777, $newdir)or die "couldn't chmod $newdir because: $!\n"; }