Select Code to Download

use strict ;
use warnings ;

{
  my $var = 10 ;
}
print "$var\n" ;

my $var ;
{ 
  $var = 10 ;
} 
print "$var\n" ;