use strict ;
use warnings ;

##</code><code>##

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

##</code><code>##

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