my $calendar1 = Calendar->new(year => "2002", DIR => "c:\a_dir");
my $calendar2 = Calendar->new(year => "2003", DIR => "c:\a_dir");