mkdir("$dir", 0777) || die "Could not mkdir \"$dir\": $!\n";