use strict;
use warnings;

use SVN::Core;
use SVN::Client;

my $pool = SVN::Pool->new_default;
my $ctx = new SVN::Client;
$ctx->cat(\*STDOUT, "https://some/svn/url", "HEAD", $pool);
undef $pool;