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