my $dir = "/home/me/perl-stuff/";
my $mode_long = (stat($dir))[2];
my $mode = sprintf("%o", ($mode_long&07777));
my $oct_mode = '0'.$mode;
my $oct = oct($oct_mode);
$dir .= "test";
my $x = umask;
umask 0000;
mkdir ($dir,$oct);
umask $x;