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

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

##</code><code>##

($var1, $var2) = @ARGV;

##</code><code>##

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