Maybe Capture::Tiny serves your purpose enough:

$ perl -MCapture::Tiny=capture -wE'my($out,$err,$exit)=capture{say"Hel
+lo";warn"Die\n";};say"OUT:$out";say"ERR:$err";say"EXIT:$exit";'
OUT:Hello

ERR:Die

EXIT:1
[download]