use strict;
use warnings;

$\ = $/;

tst() for (1..2);

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