Mine

use SVN::Core;
use SVN::Repos;
use SVN::Fs;

my $repos = SVN::Repos::open('/u/james/g', SVN::Pool->new());
print $repos->fs->youngest_rev;