use strict;
use warnings;

$\ = $/;

tst() for (1..2);

sub tst {
   my $var = 1;
   print \$var, " created";
   sub func
     {
        print \$var;
     }
   func();
}

##</code><code>##

Variable "$var" will not stay shared at d:/pm/wont_stay_shared.pl line 13.
SCALAR(0x4c97f0) created
SCALAR(0x4c97f0)
SCALAR(0x4a8420) created
SCALAR(0x4c97f0)