if( not -d $dir ) {
  mkdir($dir) or die("can't create $dir because you don't have write permission")
}