#!/usr/bin/perl -w

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

##</code><code>##

 
	>cat t.pl  | perl t.pl