Select Code to Download

use strict;
use warnings;
...
   my $rc = invoker( $name, $name . '-arg' );
   print "$name: rc=$rc\n";
}

in first_callback, z=first-arg
first: rc=1
in last_callback, z=last-arg
last: rc=2
fred: rc=-1