#!/usr/local/bin/perl -w


  use SOAP::Lite;
  my $soap = SOAP::Lite
#    -> uri('http://www.soaplite.com/Temperatures')
#    -> proxy('http://services.soaplite.com/temper.cgi');
    -> uri('http://webwork-db.math.rochester.edu/Demo/')
    -> proxy('http://webwork-db.math.rochester.edu/mod_soap/');

  my $result = $soap->bye();
  unless ($result->fault) {
    print $result->result();
  } else {
    print join ', ',
      $result->faultcode,
      $result->faultstring;
  }
  
  
#    use SOAP::Lite
#    on_fault => sub { my($soap, $res) = @_;
#      die ref $res ? $res->faultstring : $soap->transport->status, "\n";
#    };
#  my $soap = SOAP::Lite
#    -> uri('http://www.soaplite.com/home/soaplite/modules/Temperature')
#    -> proxy('http://http://services.soaplite.com/home/soaplite/modules/');
#  eval {
#    print $soap->c2f(37.5)->result;
#  1 } or die;