?- gives(ovid, book(Title), merlyn). Title=learning_perl