package policy;

sub checkPolicyPrice {
    my $policyCode = shift;
    my $date       = shift;

my $result = 159 if $policyCode =~ /ABC/  && $date =~ /31\/10\/2007/;

   ### NO MATCH FOUND
    print "No value found for:policyCode=$policyCode date=$date" unless defined $result;

    return $result;
}