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

ERR:Die

EXIT:1