c:\test>pipetest

c:\test>echo on

c:\test>assoc .pl=perltest
.pl=perltest

c:\test>perl -e"system(qq(ftype perltest=$^X \"%1\" %*))"
perltest=C:\Perl64\bin\perl.exe "%1" %*

c:\test>ftype perltest
perltest=C:\Perl64\bin\perl.exe "%1" %*

c:\test>mkdir pipe

c:\test>cd pipe

c:\test\pipe>pipe
'pipe' is not recognized as an internal or external command,
operable program or batch file.

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

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

c:\test\pipe>pipe pipe.pl
| print qq(| $_) while <>
c:\test\pipe>pipe  0<pipe.pl
| print qq(| $_) while <>
c:\test\pipe>type pipe.pl   | pipe
| print qq(| $_) while <>
c:\test\pipe>set pathext=.com;.exe;.bat;.cmd;

c:\test\pipe>pipe pipe.pl
'pipe' is not recognized as an internal or external command,
operable program or batch file.

c:\test\pipe>pipe  0<pipe.pl
'pipe' is not recognized as an internal or external command,
operable program or batch file.

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

c:\test\pipe>pipe pipe.pl
| print qq(| $_) while <>
c:\test\pipe>pipe  0<pipe.pl
| print qq(| $_) while <>
c:\test\pipe>type pipe.pl   | pipe
| print qq(| $_) while <>
c:\test\pipe>del pipe.pl

c:\test\pipe>cd ..

c:\test>rmdir pipe