Check out our Perl Chat library here - https://metacpan.org/pod/Chat::iFly.

 

Thanks to JT Smith for writing this library.