Help for this page

Select Code to Download

Select or download this

use strict; 
use warnings; 
...
        print $line;
    }
}

Select or download this
```
for ( (<DATA>)[1..6] ) {
   print;
}
```