Select Code to Download

#!/usr/bin/perl -s
use strict;
...
    my $rc = invoker( $name, $name . '-arg' );
    print "$name: rc=$rc\n";
}

$ perl /tmp/1203952.pl -h
Available callbacks: first last
...
in last_callback, z=last-arg
last: rc=2
fred: rc=-1