Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

...
seek(STDIN, 0, 0) or die; 
print "-----PASS 2-----\n"; 
while(<>) {print}

Select or download this
```
 
    >cat t.pl  | perl t.pl
```