open(HANDLE, "my_prg 2>&1 |") || die "error: $!\n";

##</code><code>##

$output = `my_prg 2>&1`;