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