Select Code to Download

   $foo = 5;
   sub do_something { print $foo, $/; }
...
      do_something();
   }
   main();

      {
        my $unnamed_backup_of_old_value_of_foo = $foo;
...
        do_something();
        $foo = $unnamed_backup_of_old_value_of_foo;
      }