在xp系统下perl怎么修改文件内容

#!/usr/bin/perl   -w
use strict;
open CS,"myperl/tiaoshi.pl"
 or die "打开文件失败!! ($!)";

 my $date = localtime();
 $^I = "";

 while(<CS>){
           s/^Author:.*/Author: YQj/;
           s/^Phone:.*\n//;
           s/^Date:.*/Date: $date/;
           print;
 }