c:\test>type echoit.pl
#! perl -sw
use strict;

print while <>;

c:\test>echoit <junk.dat
jim  14
john 23
ernest 38
matilda 43
jim 34
ernest 27
john 44
matilda 22

c:\test>echoit <junk.dat >junk.out

c:\test>type junk.out
jim  14
john 23
ernest 38
matilda 43
jim 34
ernest 27
john 44
matilda 22

c:\test>echoit <junk.dat | find "j"
jim  14
john 23
jim 34
john 44