This snippet is from Parsing STDOUT ?

#!C:/perl/bin/perl.exe

use warnings;
use strict;

use RRDTool::OO;
use XML::Simple;
use Data::Dumper;


my $rrd = RRDTool::OO->new( file => "test.rdd" );

$rrd->create(
            step        => 1, 
            data_source => { name => "mydatasource",
                type        => "GAUGE" },
                archive     => { rows => 5 });

for(1..2) {
    $rrd->update($_);
    sleep 1;
}

my $pid;

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

waitpid($pid, 0);

my $data = join '', <DUMP>;
my $ref = XMLin($data);

print Dumper($ref);
[download]

Does anyone know why I get the following error:

'-' is not recognized as an internal or external command,
operable program or batch file.
File does not exist:  at test.pl line 35
[download]

I'm trying this on a windows box and I'm not sure how to redirect STDOUT to accomplish my task. Ultimately I need to capture STDOUT and pass it of to XML-SIMPLE.

jdporter fixed pm link