#!/usr/bin/perl -w
use diagnostics;
use strict;
sub outermost { my $a; sub middle { sub { $a } } }