#!/usr/bin/perl
#
# eg17a: second coderef example
#
use strict;
use warnings;
use Function::Parameters;

my $doubleme = fun ($n) { return 2 * $n }; # make reference to anon func
my $x = $doubleme->(10);                   # invoke: deference and call with arg 10
print "10 doubled is $x\n";
