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

##</code><code>##

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

##</code><code>##

Terminating on signal SIGINT(2)
Terminate batch job (Y/N)?

##</code><code>##

perl -c script.pl
perl -d:Trace script.pl
perl -X script.pl

##</code><code>##

script -S=this -T=that