C:\pipe> perl -e "print 'print qq(| $_) while <>'"  1>pipe.pl

C:\pipe> set pathext=.pl;.com;.exe;.bat;.cmd;

C:\pipe> pipe pipe.pl
| print qq(| $_) while <> 
C:\pipe> pipe  0<pipe.pl

C:\pipe> type pipe.pl   | pipe