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