my $cd = Music::CD->retrieve(1);
my $year = $cd->year;