Help for this page

Select Code to Download


  1. or download this
    while ( (print "Prompt: "), $line=<STDIN>, $line !~ /^\s*Q(uit)\s*$/i )