function for chat socket in perl

chat-perl-openssl-chat-perl-openssl
...................................\log
...................................\certs
...................................\server.pl~
...................................\.perlchatrc
...................................\foo.log
...................................\server.pl.log
...................................\server.pl
...................................\perlchat.gif
...................................\passwd
...................................\client.pl
...................................\README
...................................\LICENSE
...................................\clientnetssleay2.pl
...................................\log\file.log
...................................\certs\test-ca.pem
...................................\.....\server-wildcard.pem
...................................\.....\server-rsa384-dh.pem
...................................\.....\server-key.pem
...................................\.....\server-key.enc
...................................\.....\server-cert.pem
...................................\.....\my-ca.pem
...................................\.....\client-key.pem
...................................\.....\client-key.enc
...................................\.....\client-cert.pem

• We are an exchange download platform that only provides communication channels. The downloaded content comes from the internet. Except for download issues, please Google on your own.
• The downloaded content is provided for members to upload. If it unintentionally infringes on your copyright, please contact us.
• Please use Winrar for decompression tools
• If download fail, Try it againg or Feedback to us.
• If downloaded content did not match the introduction, Feedback to us，Confirm and will be refund.
• Before downloading, you can inquire through the uploaded person information

Nothing．