Select Code to Download

my ($foo,$bar,$baz,$i);
for $i (0..10) {
  print "$i\n";
};

my $i;
if (rand > 0.5) {
  $i = 1;
};