sub foo {
    my $x = "a var in foo()";
    sub bar {
        print "\$x is - [$x]\n";
    }
}
bar();

__output__

$x is - []