gistfile1.pl

use Capture::Tiny qw/capture/;

my ($stdout, $stderr) = capture { system($^X, "bin/mpath", "strict") };