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