0672324229
##

#!/usr/local/bin/perl 
use CGI qw/:standard :netscape/;

use SOAP::Transport::HTTP;

  SOAP::Transport::HTTP::CGI
    -> dispatch_to('BookLook')
    -> handle;

  package BookLook;

  sub getTitle {
      my ($class, $isbn) = @_;

      if ($isbn == '0672324229'){
          return "XML Primer Plus";
      } else { 
          return "Unknown";
      }
  }

  sub getAllInfo {
      my ($class, $isbn) = @_;

      if ($isbn == '0672324229'){
          return 'XML Primer Plus by Nicholas Chase, $32.58';
      } else {
          return "Unknown";
      }
  }