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

sub double ($)                             # eg16a: fun double( $n )
{                                          #        {
        my( $n ) = @_;
        return 2 * $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";
