Git post-commit hook for Present.ly (presentlyapp.com)

gistfile1.pl

#!/usr/bin/perl
# change your account, username, password, and group
# it'll run every time you commit (not push, mind you)

$account='account';
$username='username';
$password='password';
$group='group';

$git_text = `git log -n1 --pretty=format:"(%h) %s"`;
$git_long_text = `git log -n1 --stat`;
chomp $git_text;

$message = "d $group #commit $git_text";
$api="https://$account.presentlyapp.com/api/twitter/statuses/update.xml";

`curl $api -u $username:$password -d status="$message" -d paste_format='text' -d paste_text='$git_long_text'`;