Select Code to Download

if ($foo) {
   my $bar = "true";
}
...
print "again" . $bar; #-- does this still work
<cut 500 lines>
print "and again" . $bar; #-- what about this?

my $bar = "hello"; #-- global

sub mysub {
...
  }
  print $bar;
}