Help for this page

Select Code to Download

Select or download this

while (1) {
    while ($out !~ m/^[sSfF]$/) {
...
    ...
    last;
}