sample of closure by perl

closure_perl.pl

#!/usr/bin/env perl

use strict;
use warnings;

sub make_closure {
    my $cnt = 0;
    return sub {
        ++$cnt;
    }   
}

my $closure1 = make_closure;
my $closure2 = make_closure;

print "closure1 => " . $closure1->() . $closure1->() . "\n";
print "closure2 => " . $closure2->() . $closure2->() . $closure2->() . "\n";

# closure1 => 12
# closure2 => 123