#!/usr/bin/perl
use strict;
use warnings;

my $sub1 = sub {
	my $sub2 = sub {
		if (1==1) { return; }
	};
	$sub2->();
	print "zweiter Level\n";
};
$sub1->();
print "ganz oben\n";
exit();