Select Code to Download

 $ perl -le 'sub callback { die "called( @_ )!" } print \&callback'
CODE(0x219b4c0)
 $ perl -le 'sub callback { die "called( @_ )!" } print \&callback("ar
+g")'
called( arg )! at -e line 1.
 $