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