Help for this page

Select Code to Download

Select or download this

LOOP:
        say q/Please input a number (>1):/;
        while(<>){
...
                say $_;
                goto LOOP;
        }