my $path = $ENV{ TMP };
my $dir = 'temp' . join'', map{ ('A'..'Z')[rand 26] } 1 .. 4;
++$dir until mkdir $path . $dir or $! != 17 and die "$path$dir : $!;