use strict;
use warnings;

use IPC::Run qw( run );

my @cmd = (
    perl => (
        -e => 'print "x" x 100_000',
    )
);

run \@cmd, \'', \my $out, \my $err
    or die("Error returned by $cmd[0]: $?\n");

print("Receveived ", length($out), " chars\n");

##</code><code>##

$ perl a.pl
Receveived 100000 chars