Help for this page

Select Code to Download


  1. or download this
    sub get_YNRQ {
        while (1) {
    ...
                if $ans =~ m/[YNRQ]/;
        }
    }