Help for this page

Select Code to Download

Select or download this

sub outer {
   my $c_inner = sub { print "perl" };
   $c_inner->();
}