#!/usr/bin/perl
#
# eg17: second coderef example
#
use strict;
use warnings;

my $doubleme = sub { return 2 * $_[0]; };  # eg17a: fun ($n) { return 2 * $n };
my $x = $doubleme->(10);                   # invoke: deference and call with arg 10
print "10 doubled is $x\n";
