package Foo::Server;
use HTTP::Server::Simple::CGI;
our @ISA = qw(HTTP::Server::Simple::CGI);
our $CALLBACK;
sub handle_request { $CALLBACK->(@_) }