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";

##</code><code>##

print "$ARGV[0]\n\t$ARGV[1]\n\t\t$ARGV[2]\n";

##</code><code>##

C:/Perl64.v.5.14/bin\perl.exe -w c:/Work/IPC.test.pl 
==============

	
		


=================
qwerty 12354
	asdfg
		zxcvbnm


==============
qwerty 12354
	asdfg
		zxcvbnm


==============