sub extern {
 local *intern_sub = sub {#irgendwas};
}

$coderef = sub { print "Hallo" }

# Ausführen:
$coderef->();

Variable: $var will not stay shared

sub aussen {
    ...
    my $innen = sub {
        ...
    };

    # Aufruf von $innen:
    $innen->($arg1, $arg2, ...);
}