#!usr/bin/perl

use strict;
use warnings;
use Capture::Tiny qw(capture tee);

my ($stdout, $stderr, $exit) = tee
{
        system('ls', '-l');
};
print $stdout;