#!/usr/bin/env perl

use strict;
use SVN::Client;

my $ctx = new SVN::Client;
$ctx->log(\@ARGV, 'HEAD', 1, 0, undef, \&log_receiver);

sub log_receiver
  {
    print "@_[0..4]\n";
  }