#!/usr/bin/perl -w

use SOAP::Lite;

my $soap = SOAP::Lite
    -> uri('http://www.soaplite.com/Temperatures')
    -> proxy('http://localhost/cgi-bin/temper-object.cgi');

my $temperatures = $soap
  -> call(new => 100) # accept Fahrenheits 
  -> result,
    "\n";

print $soap
  -> as_celsius($temperatures)
  -> result,
    "\n";
