The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<html>
<head><title>JavaScript SOAP::Lite for COM Examples</title></head>
<body>

<script language="javascript"><!--

// .create() here is synonim for .new(), because new() is reserved in JavaScript

var objPerlCOM = new ActiveXObject("SOAP.Lite");
var SOAP = objPerlCOM.create();
SOAP.proxy("http://localhost/")
    .uri("http://www.soaplite.com/My/Examples");

function getStateName (form) {
  form.result.value = SOAP.getStateName(form.state.value).result();
}

//--></script>

<h1>SOAP::Lite Examples</h1>
<hr>

<form name="states">
<input type="text" name="state" value="25" size="3" maxlength="3">
<input type="button" value="getStateName" onclick="getStateName(states);">
<input type="text" name="result" readonly>
</form>

<hr>

<pre>
&lt;script language="javascript">&lt;!--

var objPerlCOM = new ActiveXObject("SOAP.Lite");
var SOAP = objPerlCOM.create();
SOAP.proxy("http://localhost/")
    .uri("http://www.soaplite.com/My/Examples");

function getStateName (form) {
  form.result.value = SOAP.getStateName(form.state.value).result();
}

//-->&lt;/script>
</pre>

</body>
</html>