use File::Path;
mkpath("/var/tmp/log/script/",0,1777);