Declaring a closure is much like declaring a subroutine. It works just as you'd expect this code to work. (Of course, if you don't expect this code to work the way it works, we all have problems :):

sub not_a_closure
{
    my $j = shift;
    print "$j";
}
[download]