echo on

assoc .pl=perltest
perl -e"system(qq(ftype perltest=$^X \"%%1\" %%*))"
ftype perltest

mkdir pipe
cd pipe
pipe

perl -e "print 'print qq(| $_) while <>'" > pipe.pl
set pathext=.pl;.com;.exe;.bat;.cmd;
pipe pipe.pl
pipe < pipe.pl
type pipe.pl | pipe

set pathext=.com;.exe;.bat;.cmd;
pipe pipe.pl
pipe < pipe.pl

set pathext=.com;.exe;.bat;.cmd;.pl;
pipe pipe.pl
pipe < pipe.pl
type pipe.pl | pipe

del pipe.pl
cd ..
rmdir pipe

##</code><code>##

C:\> echo on

C:\> assoc .pl=perltest
.pl=perltest

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

C:\> ftype perltest
perltest=C:\strawberry\perl\bin\perl.exe "%1" %*

C:\> mkdir pipe

C:\> cd pipe

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

##</code><code>##

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

##</code><code>##

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

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

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

##</code><code>##

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

##</code><code>##

C:\pipe> del pipe.pl

C:\pipe> cd ..

C:\> rmdir pipe

C:\>