Select Code to Download

unless ($fish eq $local)
      {
          $hash2{$local}++;
      }

function1<br>
function2<br>

function1<br>
stubfunction1<br>
function2<br>
stubfunction2<br>

function1<br>
stubfunction1<br>
function2<br>
stubfunction2<br><br>

stubfunction1<br>
stubfunction2<br><br>

for (0..6) {
  $fish = pop @array;
...

    close Local;
  }

open STUB, "stub.c" or die "Cannot open stub.c : $!\n";
  while (<STUB>) {
...
    # otherwise, we do:
    print "$_\n" if not exists $hash1{$_};
  }

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/