Select Code to Download

my $x;
if (f()) {
...
   ...
   $x = ...;
}

my $found;
for (...) {
...
      $found = ...
   }
}

my @a;
while (...)
   ...
   push @a, ...;
}