Capture::Tiny sample

gistfile1.txt

#!/usr/bin/perl
 fork+exec { $cmd } @args;

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

my ($stdout, $stderr) = capture {
    open my $fh, "| cat";
    print $fh "foo bar baz\n";
};

warn $stdout;
warn $stderr;