use File::Path qw(make_path)
make_path("/var/tmp/log/script/",{mode => 0777});