use Capture::Tiny qw/ capture /;
my @cmd = ( "...ls", 'dir' );
my( $stdout, $stderr, $exit ) = capture {
     system { $cmd[0] } @cmd;
};;
$exit and die "it failed with $exit and $stderr ";