mkdir("dirname", 0777) or die "could not create dir: $!";

##</code><code>##

umask 022;
mkdir("dirname", 0777) or die "could not create dir: $!";