#ex_14-5
#Learning Perl, Appendix A, Exercise 14.5
sub mkdir {
  local($dir, $mode) = @_;
  (!system "/bin/mkdir", $dir) && chmod($mode, $dir);
}