use MyModule;
use SOAP::Transport::HTTP;
SOAP::Transport::HTTP::CGI->dispatch_to('MyModule')->handle;
##</code><code>##

package MyModule;
use strict;
sub product_info_request
{
	my ($self,@args) = @_;

	return (SOAP::Header->name(prod_no => $args[1])->type('string'));
}