$ cat foo
#!/usr/bin/perl -w
use strict;
print "I am $0 (@{[join ' ', @ARGV]})\n";

$ cat bar
#!/usr/bin/perl -w
use strict
system { './foo' } 'bar', @ARGV;

$ ./bar 1 2 3
I am ./foo (1 2 3)
$