Select Code to Download

my $var=0;
{
...
  }
}
print "\n$var \n";

my $var=0;
foreach (my $var=1; $var < 10; ++$var){
    print $var;
}
print "\n$var \n";

my $var=0;
{
...
  }
}
print "\n$var \n";