Hi,

$sock scheint keinen definierten Wert zu enthalten.
Das legt den Schluß nahe, dass das Erzeugen eines neuen IO::Socket::SSL Objekts fehlgeschlagen ist.