[D]Perl 小程序如何调不通呢

[D]Perl 小程序怎么调不通呢
$^I=".bak";
Unless (open OUT,">a.txt"){
die "can not open file a\n";
}
while(<OUT>){
if(/^#!/){
$_.="## copyright (c) 2012 by Cindy\n";
}
print OUT "$_\n";
}
程序目的在#！后给文件加个版权字符串
---------------------------
Double行动：
原帖分数：20
帖子加分：20

[解决办法]