use strict;
use warnings;

sub a {
    my $x = 3;
    sub b {
        print $x, $/;
    }
}

b();
__END__
Variable "$x" will not stay shared at foo.pl line 7.
Use of uninitialized value $x in print at foo.pl line 7.