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

sub definer {
    my $value = shift;
    sub outputter {
        no warnings "closure";
        print "$value\n";
    }
}

definer(5);
outputter();
definer(6);
outputter();