#!/usr/bin/perl -w

use SOAP::Lite;
$SOAP::Constants::PREFIX_ENV = 'SOAP-ENV';

my $url = 'http://localhost:9876/ts?wsdl';
my $service = SOAP::Lite->service($url);

print "\nCurrent time is: ", $service->getTimeAsString();
print "\nElased milliseconds from the epoch: ", $service->getTimeAsElapsed();
print "\n";