#!/usr/bin/perl -w

use SOAP::Lite +autodispatch =>
    uri => 'http://www.soaplite.com/Temperatures' =>
    proxy => 'http://localhost/cgi-bin/temper-object.cgi' =>
    on_fault =>  sub {
	my($soap, $res) = @_; 
	die ref $res ? $res->faultstring : $soap->transport->status, "\n";
    };


my $temperatures = Temperatures->new(100);
print $temperatures->as_celsius(), "\n";
print $temperatures->as_kelvin(),  "\n";
