My::CGI::Handler->dispatch_to('AnPackage')->handle;

BEGIN {
	package My::CGI::Handler;
	use vars qw(@ISA);
	@ISA = qw(SOAP::Transport::HTTP::CGI);

	sub handle {
		my $self = shift;
		$self->serializer->autotype(0);
and so on....................