Help for this page

Select Code to Download

Select or download this

my $x = 0;
do {
...
    print "$x => $y\n";
    $x++;
} while ($x < 10);