use strict;
use warnings;
use IPC::System::Simple qw(system systemx capture capturex);

$| = 1;

my $cmd = 'argv.test.pl qwerty asdfghjk zxcv';
my $op = `$cmd`;
print "==============\n",$op,"\n\n=================\n";

my @args;
push @args,'argv.test.pl';
push @args,"\"qwerty 12354\"";
push @args,'asdfg';
push @args,'zxcvbnm';

system('perl',@args);
print "\n\n==============\n";
systemx('perl',@args);
print "\n\n==============\n";