my $cmd = 'someProcess.pl -parm val';
open (CMD, "($cmd  | sed 's/^/STDOUT:/') 2>&1|");
while (<CMD>;) {
    if (!s/^STDOUT://) {
        exitSub(2,"  Process failed: $_");
    } else {
        # Split the output of the process into ret
        chomp;
        @ret = split;
    }
}
close (CMD);

##</code><code>##

open (CMD, "($cmd  | sed 's/^/STDOUT:/') 2>&1|") or die $!;