use Book::MyShared;
print "Content-type: text/plain\n\n";
print "PID: $$\n";
Book::MyShared::match();
Book::MyShared::print_pos();
Book::MyShared::dump();