Select Code to Download

use strict;
use warnings;
...
  $cmd=~ s/^mycommand\.pl// || die "$0 : your command must always be '
+mycommand.pl'\n";
  system('mycommand.pl', $cmd);
}

#!perl
# mycommand.pl
print "got params (number of params: ".@ARGV.") : " . join(' ', @ARGV)
+."\n";