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

my $closure = double();

print $closure->(5);

sub double {
    return sub { shift() * 2 };
}