1<%
2
3my $x=1;
4sub closure {
5    my $y = $x;
6    $y;
7}
8return;
9
10%>
11