sub mkdirp($) {
    my $dir = shift;
    return if (-d $dir);
    mkdirp(dirname($dir));
    mkdir $dir;
}