Select Code to Download

my $fred = "foo";
for (my $idx = 1; $idx <= 10; $idx++) {
...
    print $fred, "\n" # foo, foofoo, foofoofoo...
}
print $fred, "\n"; # foo