Select Code to Download

use strict;
use warnings;
...
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>";

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

use strict;
use warnings;
...

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

use strict;
use warnings;
...
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>";