Select Code to Download

         {
                 my $foo=512;
...
                         $foo++;
                 }
         }

                  for 1 {
                  my $foo=512;
...
                         $foo++;
                  }
          }

                  INIT {
                  my $foo=512;
...
                         $foo++;
                  }
          }