sub outer {
  my ($x) = @_;

  my $inner = sub {
    # $x ist hier sichtbar!
  }

  # inner kann man aufrufen...
  $inner->(...);

  # ...oder als Wert übergeben
  return $inner;
}