#!/usr/local/bin/perl -w
# lex-shared.pl -- Verschachtelte Subroutinen und lexikalische Variablen

foreach ( 1 .. 5 ) {
    my_external_function();
}

sub my_external_function {
    my $lexical_var = 1;
    sub my_inner_function {
        ++$lexical_var;
        print "Inner: $lexical_var\n";
    }

    print "Outer: $lexical_var\n";
    my_inner_function();
}