Perl HipChat API example