sub display_basic
  {
    my $book_ref = shift;

    print "$book_ref->{'name'}<br>\n";
  }