关于perl语言中的$^I问题

Question

和钻石操作符“<>”搭配的 $^I 在windows下也能实现吗？
我的代码是这样的：;
#!/usr/bin/perl
use strict ;
my $Date = localtime;
$^I = "~";
while(<>){
s/A/B/;
print;
}
但是我在命令提示符下键入：perl ex9-1.pl < filein.txt 的时候，结果直接print在命令提示符的显示页面了，没有产生ex9-1.pl~ 也没有在源文件中完成我的替换操作，我想知道，windows下搭建的perl运行环境是不是不能使用这个代码，是不是只有在linux或者mac OS的终端里才能实现。
我本来是win和linux双系统的，但是今天刚刚格了硬盘，现在只有win，没办法去实验，另外也想请高人讲讲。
忽略$Date = localtime; 吧！问题我是简写的~ 这个只是其中一部分，用A、B代替大量字符了

Answer 1

下面的命令：
perl ex9-1.pl < filein.txt

无论在WIN还是LINUX都，输出都是在控制台，不会修改文件，也不会生成文件，需要生成新文件的命令是：

perl ex9-1.pl < filein.txt > fileout.txt