update.pl

#!/usr/bin/env perl
use strict;
use warnings;
use WebService::Simple;

my ( $refname, $oldrev, $newrev ) = @ARGV;

my $format = "%cn: %s";

chomp( my $msg = `git log -1 --pretty=format:"$format" $oldrev..$newrev` );
$msg =~ s/^[^ ]+ //;

# request
my $user     = 'username';
my $password = 'password';
my $room     = 'room name';
my $api      = WebService::Simple->new(
    base_url        => 'http://lingr.com/api/',
    response_parser => 'JSON',
    param           => {}
);

my $response =
  $api->get( '/session/create', { user => $user, password => $password } );
my $session_id = $response->parse_response->{session};

$response = $api->get(
    '/room/say',
    {
        session  => $session_id,
        room     => $room,
        nickname => $user,
        text     => $msg,
    }
);