mkpath("/var/tmp/log/script/",0,01777);

##</code><code>##

sub my_mkpath
{
my ($path, $mask) = @_;
my $ok = 1;
my $save_u = umask();
umask(0);
eval(mkpath($path, 0, oct($mask)));
if($@) # mkpath failed!
  {warn "Couldn't create $path: $@"; $ok=0;}
umask($save_u);
return $ok;
}