#!/apps/PERL5/bin/perl

use CGI qw(:standard);
use CGI::Carp qw/ fatalsToBrowser /; # remove for production

print header;

print "<p>Trying to use SOffice6 macro...</p>\n";

$sOfficePath = "/usr/dist/share/staroffice,v6.0/program/soffice";
$convPath = "/webroot/service/servicelist-automation/sl-conversion";
$LRDate = "23Oct2002";
system "$sOfficePath \"macro:///Standard.Module1.batchUpdate(\"$convPath\", \"$LRDate\")\"";

print "<p>Finished</p>\n";


##</code><code>##

did not produce a valid header (name without value: got line "   cannot open display; display environment variable is not set")