my $cd  = CD->retrieve(1);
my @cds = CD->retrieve_all;
my @cds = CD->search(year => 1980);
my @cds = CD->search_like(title => 'October%');

##</code><code>##

sub generic_id_fetch {
   my ($table,$id,@field) = @_;
   my $field = @field ? join(',',@field) : '*';
   $dbh->selectrow_hashref("select $field from $table where id=?",undef,$id);
}