my $closure;
{
    my $variable;
    $closure = sub { $variable = shift };
}