Select Code to Download

 
#in my calling script
system(qq(perl script2.pl @theArray));

 
#in my reciving script
my @RecivedArray;
...
die " no argument was passed\n";
}
@RecivedArray = $ARGV[0];