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