my $pid;

    unless ($pid = open DUMP, "-|") {
        die "Can't fork: $!" unless defined $pid;
        $rrd->dump();
        exit 0;
    }

    waitpid($pid, 0);

    open OUT, ">out";
    print OUT $_ for <DUMP>;
    close OUT;