Perl CyanChat Client