my $cd = Music::CD->retrieve( cdid   => 1 ) or die "no cd 1";

$cd->set(
        artist => $artist,
        title  => 'October',
        year   => 1980,
);