$ cat shama.bat
@echo off
@perl -le " print for 2, 4, 6, 8; "


$ call shama.bat
2
4
6
8
$ cat shecko.bat
@echo off
@perl -ne " print qq[# shecko # $_]; "

$ call shama.bat | call shecko.bat
# shecko # 2
# shecko # 4
# shecko # 6
# shecko # 8