This happened during the SSL negotiation, and before any payload data had been sent to the server, i.e during the phase in which client and server agree upon how to encrypt the https stream; your perl script doesn't see any of this.

To fix that issue, generate a certificate for your server (or ask the staff to do so) which actually matches the server's name and IP-address.

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}