use strict;
use warnings;

use SVN::Client;

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