use Capture::Tiny ':all';
...
my ($stdout, $stderr, @results) = capture { ... };

##</code><code>##

my $merged = capture_merged { ... };