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

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

C:\pipe> type pipe.pl   | pipe