#!/usr/bin/perl --
use strict;
use warnings;
use Capture::Tiny qw/ capture /;
use Data::Dump qw/ dd /;

my @cmd = ( 'python', '-V' );
my( $stdout, $stderr, $exit ) = capture {
    system { $cmd[0] } @cmd;
};;
dd({ stdout => $stdout, stderr => $stderr, exit => $exit } );
__END__
{ exit => 0, stderr => "Python 2.5\n", stdout => "" }