my $z=<STDIN>
while(<$z>) {
 ...