#!/usr/bin/perl -w
# test-policy.pl
use SOAP::Lite;
print "what is your policyCode?";
$policyCode = <stdin>;
chomp $policyCode;
print "what is your date?";
$date = <stdin>;
chomp $date;
print SOAP::Lite
  -> proxy('http://homepages.feis.herts.ac.uk/~123456/cgi-bin/policy.cgi')
  -> uri('urn:policy')
  -> checkPolicyPrice($policyCode,$date)
  -> result;