use strict; use warnings; sub outer { my $inner = sub { $inner->() } }