#!/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;