use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use IPC::System::Simple qw(capture system $EXITVAL);

print "Content-Type: text/html\n\n";
my $results = capture('svn info <url> --non-interactive --trust-server-cert --username <user> --password <pass> --config-dir <dir>');
print "<pre>Exit value: $EXITVAL\n\n$results</pre>";