Help for this page

Select Code to Download

Select or download this
```
#! perl
use strict;
...
7
42
0
```

Select or download this

while (defined($_ = <STDIN>)) { print; }
while ($_ = <STDIN>) { print; }
while (<STDIN>) { print; }