#!/usr/bin/perl -w
use strict;
use SOAP::Transport::HTTP;

SOAP::Transport::HTTP::CGI   
  -> dispatch_to('Storeit')     
  -> handle;

package Storeit;

sub store {                     
  my ($class,$id,$data) = @_;
  my $response = storetodb($id,$data);
  return $response;
}