Select Code to Download

$cmd  = 'script.pl';
$var1 = 'foo';
...

# this executes $cmd with $var[12] as arguments
system("perl $cmd $var1 $var2");

($var1, $var2) = @ARGV;

$var1 = shift @ARGV;
$var2 = shift @ARGV;