Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl 
use strict;
...
exit unless @ARGV;
my @args = ('bar', 'foo.pl', @ARGV);
system { '/usr/bin/perl' } @args;

Select or download this

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