#!/usr/bin/perl -w
use strict;
use lib '.';
use Sub::Lexical;

my sub testsub {
	print "testsub 1 called\n";
}

my sub outersub {
	print "outersub called\n";
	testsub();
}

for (1) {
	my sub testsub {
		print "testsub 2 called\n";
	}
	testsub();
	outersub();
}

##</code><code>##

testsub 2 called
outersub called
testsub 2 called

##</code><code>##

testsub 2 called
outersub called
testsub 1 called

##</code><code>##

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.