sub foo { my sub bar { print "42\n"; } return sub { bar() }; } my $s = foo(); $s->();