use Capture::Tiny::Extended 'capture';
 
my ( $out, $err, $res ) = capture { system( 'ls' ) };