#!/usr/bin/perl -l

use strict;
use warnings;
use CGI qw/:standard/;

my $java_res = `java '<XML string>' http://weburl 2>/err.dat 1>/out.dat`;

open STDERR, '>', '/root/Desktop/err.dat' or die $!;
open STDOUT, '>', '/root/Desktop/out.dat' or die $!;
binmode STDOUT, ':encoding(UTF-8)';
print Dump $java_res;
if ($java_res eq 1) {
    print "Result = [OPERATION SUCCESSFUL]";
}
else {
    print "Result = [OPERATION UNSUCCESSFUL]";
}
close STDERR;
close STDOUT;