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>";

##</code><code>##

system('svn info <url> --non-interactive --trust-server-cert --username <user> --password <pass> --config-dir <dir>');

##</code><code>##

use strict;
use warnings;
use IPC::System::Simple qw(capture system $EXITVAL);

my $results = capture('svn info <url> --non-interactive --trust-server-cert --username <user> --password <pass> --config-dir <dir>');
print $results;

##</code><code>##

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 = `svn info <url> --non-interactive --trust-server-cert --username <user> --password <pass> --config-dir <dir>`;
print "<pre>$results</pre>";