Help for this page

Select Code to Download

Select or download this

while (1) {
    chomp(my $choice = <STDIN>);
...

    last;
}