一shell题

测试文件file是否存在，如果存在，则备份，生成新文件file，如果不存在，生成新文件file内容如下:
1  0  1
2  1  1
3  0  1
4  1  1
5  0  1

郁闷，当时在TX的时候，居然没想出来：
#!/usr/bin/perl
for($i=1;$i<=5;$i++)
{
  if($i % 2==0){
    print "$i  1  1"."\n";
  }else{
    print "$i  0  1"."\n";
  }
}