Maybe you should have a look onto Net::SSLeay, particularly it has set_verify function which allows you to set callback to verify peer, callback receives certificate chain as one of arguments.