package Book::Cookie;
use Apache::Constants qw(:common);

use strict;
use CGI;
use CGI::Cookie;
use vars qw($q $switch $status $sessionID);

sub handler {
    my $r = shift;
         
    init();
    print_header();
    print_status();
    
    return OK;
}

# all subroutines unchanged

1;