#!/usr/bin/perl use strict; use Git::Wrapper; my $git = Git::Wrapper->new('/path/to/repo'); my @log = $git->log; print "Content-type: text/html\n\n

id: ${\$log[0]->id}
author: ${\$log[0]->author}
date: ${\$log[0]->date}
message: ${\$log[0]->message}