open( RED, "-|", "redmon arg1 ..." ) or die "redmon failed: $!";
while (<RED>) {
    # do stuff...
    print;
}