eval { mkpath($dir) };
  if ($@) {
    print "Couldn't create $dir: $@";  # leave this out if you want silence
  }  

# untested code.  should not be used to control laser brain surgery systems