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