#!/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();
}