mkdir($dir) or die "Can't create $dir: $!";