Capture::Tiny does that successfully

#!/usr/bin/perl --
use strict;
use warnings;
use Capture::Tiny qw/ capture /;
my @cmd = ( );
my($stdout, $stderr, $exit) = capture {
    system { $cmd[0] } @cmd;
};;
[download]