gives(kudra,book(learning_perl),merlyn).