perl CDDB_get