Win8 Strawberry 5.30.3.1 (64)  Wed 09/21/2022  1:32:21
C:\@Work\Perl\monks
>perl

use 5.018;  # lexical subroutines

use strict;
use warnings;

Outer(1);
# Inner(2);  # Undefined subroutine &main::Inner ...

sub Outer {

    my ($param) = @_;

    my sub Inner {
        my ($innerVar) = @_;
        print "In inner: $innerVar\n";
        }

    Inner($param);

    }

^Z
In inner: 1