Select Code to Download

#!/usr/bin/perl
use strict;
...
   my $bar = "true";
}
print $bar;

my $bar;
if ($foo) {
   $bar = "true";
}
print $bar;

{
my $bar;
...
}
print $bar;
}

if ($foo) {
   my $bar = "true";
}
print $bar;