use WWW::Pusher;

    my $pusher    = WWW::Pusher->new(
                         auth_key => 'YOUR API KEY',
                         secret => 'YOUR SECRET',
                         app_id => 'YOUR APP ID',
                         channel => 'test_channel' );

    my $response  = $pusher->trigger(event => 'my_event', data => 'Test message');
    my $sock_auth = $pusher->socket_auth('socket_auth_key');