Select Code to Download

package Calendar;

...
    
    return bless $calendar, $class;
}

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