Select Code to Download

my $i = my $j = 0;
while ($i++ < 5) {
...
    $j++;
    printf "j:$j\n";
}

my $yodda = 0;
while ($yodda < 6) {
...
} continue {
    print "$yodda\n";
}