Help for this page

Select Code to Download

Select or download this
```
while (<DATA>) { ... }
```
Select or download this
```
@foo = <DATA>;
while (@foo) { ... }
```

Select or download this

while (defined ($_ = readline(*DATA))) { ... }