#! /usr/bin/perl
# Exercise 13.11

# use diagnostics;

sub foo {
    my $lex = $_[0];
    sub bar {
        print "$lex\n";
    }
    bar();
}

foo(2);  foo(3);
