my $ref = XMLin([<xml file or string>] [, <options>]);

##</code><code>##

    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;

##</code><code>##

    use XML::Simple;
    my $data = join '', <DUMP>;
    my $ref = XMLin($data);