#!/usr/bin/perl

use warnings; use strict;

open(INFO, "svn info|");
while(<INFO>) {
   if (/Revision: (\d+)/) {
      my $previous = my $current = $1;
      $previous--;
      system("svn log  -r $current");
      system("svn diff -r $previous:$current");
      exit(0);
   }
}
print STDERR "Something bad happend!\n";
exit(1);