#!/usr/bin/perl -w

use strict;

(@ARGV==2) || die "Usage: $0 <yr0> <yr>\n";
my ($yr0,$yr) = @ARGV;

foreach my $file0 (<../$yr0/co/$yr0*>)
{
   my $file = $file0;
   ($file =~ s/..\/$yr0\/co\/$yr0(.*)$/co\/$yr$1/g) || die "Cannot rename file $file0\n";
   system("cp -a $file0 $file");
}
