use strict;

use SOAP::Transport::HTTP;
SOAP::Transport::HTTP::CGI
  ->dispatch_to('Quote')
  ->handle;
BEGIN {
    package Quote;
    use vars qw(@ISA);
    @ISA = qw(Exporter SOAP::Server::Parameters);
    use SOAP::Lite;
    use Data::Dumper::Simple;

    sub GetQuote {
        my @params = @_;
        print STDERR Dumper(\@params);
        return('ok');
    }
}