note
Nazeerahamed
You can only localize a "package global variable" but not a lexical variable i.e., declared using "my".
A package global can be created using "use vars qw($pkg_gbl_bar1 $pkg_gbl_bar2)".
Please change your code as below
<br>use strict;
<br>use vars qw($tt);
<br>$tt = 3.14159;
<br>{
<br> local $tt = 3;
<br> print "In block, \$tt = $tt\n";
<br> print "In block, \$::tt = $::tt\n";
<br>}
<br>print "Outside block, \$tt = $tt\n";
<br>print "Outside block, \$::tt = $::tt\n";
<br><br>Hope this helps you. If I am wrong, please let me know.
94007
578736