#!/usr/bin/perl
use strict;
use warnings;

my $closure = double();

print $closure->(5);

sub double {
    my $param = shift;

    return sub { $param * 2 };
}