Help for this page
Select Code to Download
Select
or
download this
(\&test)->(1);
Select
or
download this
my $ref = sub { print "(@_)\n" };
Select
or
download this
$ref->(1);