- or download this
# Server system
# This is a test of one Web Service Server
...
->objects_by_reference('Demo')
->handle;
exit;
- or download this
# The package demo !
package Demo;
...
return @Test;
}
1;
- or download this
# Client side
use SOAP::Lite;
...
{
print "Key : $Key01\n";
}