Select Code to Download

  GET http://foo.com/webservice/<productid>
  DELETE http://foo.com/webservice/<productid>
  POST http://foo.com/webservice/<productid>
  PUT http://foo.com/webservice

package Foo::CGI::Rest;

...
}

1;

sub cgiapp_get_query {
  my $self = shift;
  require Foo::CGI::Rest;
  return  Foo::CGI::Rest->new();
}

sub update {
  my $self   = shift;
...
  my $xmlstr = $cgi->get_data();
  ...
}

package Foo::CGI::Rest;

...
}

1;