<%

my $x=1;
sub closure {
    my $y = $x;
    $y;
}
return;

%>