#!/usr/bin/perl  - w
# policy.cgi -policy SOAP handler
use SOAP::Transport::HTTP
SOAP::Transport::HTTP::CGI
-> dispatch_to('policy::(?:checkPolicyPrice)')
-> handle
 ;