$ perl test-policy.pl
what is your policyCode?ABC
what is your date?31/10/2007
500 Internal Server Error at test-policy.pl line 10