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

fun double( $n )
{
  return 2 * $n;
}

my $coderef = \&double;                    # make reference to function
my $x = $coderef->(10);                    # invoke: dereference and call with arg 10
print "10 doubled is $x\n";
