#!/usr/bin/perl

use Apache::FakeRequest ();
use Book::Example ();

my $r = Apache::FakeRequest->new('get_remote_host'=>'www.example.com');
Book::Example::handler($r);