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