#!/usr/bin/perl 
use strict;
use warnings;

print "I am $0 (@{[join ' ', @ARGV]})\n";
system ("ps $$");
shift;
exit unless @ARGV;
my @args = ('bar', 'foo.pl', @ARGV);
system { '/usr/bin/perl' } @args;

##</code><code>##

$ ./foo.pl 1 1
I am ./foo.pl (1 1)
  PID TTY      STAT   TIME COMMAND
 3717 pts/0    SN+    0:00 /usr/bin/perl ./foo.pl 1 1
I am foo.pl (1)
  PID TTY      STAT   TIME COMMAND
 3719 pts/0    SN+    0:00 bar foo.pl 1