#!/usr/local/bin/perl

use SOAP::Lite;
<c>
print SOAP::Lite
	->uri("http://xmlschema.tmi.telus.com/xsd/Enterprise/BaseTypes/types/ping_v1/")
	->proxy("http://schemas.xmlsoap.org/soap/envelope/")
	->ping
	->result;