use strict;
use warnings;

Outer(1);
Inner(2);

sub Outer {
    my ($param) = @_;

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

    Inner($param);
}