Sigue un ejemplo de programa cliente:
#!/usr/bin/perl -w -I. use Biblio::Doc1; $obj = Biblio::Doc1->new(1, "Asimov", "Bruguera", "Los propios dioses", "unknown"); print ("El nombre del autor es: ", $obj->get_author(), "\n"); print ("La URL es: ", $obj->get_url(), "\n"); $obj->set_author("El buen doctor"); print ("El nuevo nombre del autor es: ", $obj->get_author(), "\n"); $obj->set_author("Isaac Asimov"); print ("El nombre del autor definitivo es: ", $obj->get_author(), "\n");
Casiano Rodríguez León