Help for this page

Select Code to Download

Select or download this

           while (($_ = <STDIN>) ne '0') { ... }
           while (<STDIN>) { last unless $_; ... }