$foo = 'whatever';
$bar = '42';
system $^X, 'x.pl', $foo, $bar; # run a new "perl script args"

##</code><code>##

$foo = 'whatever';
$bar = '42';
{ local @ARGV = ($foo, $bar); do 'x.pl' };