Pusher API examples in Perl