{
  my $innen = sub { #irgendwas};
  sub aussen
  {
    $innen->();
  } # aussen
}