#!D:/perl/bin/perl.exe -w
  use strict;
  use SOAP::Transport::HTTP;

  SOAP::Transport::HTTP::CGI
      -> dispatch_to( 'Temperatures' )
      -> handle;

  package Temperatures;

  sub f2c {
      my ( $self, $f, $format ) = @_;
      my $fmt = $format || $self->{_format};
      return sprintf $fmt, (5/9 * ($f - 32));
  }

  sub c2f {
      my ( $self, $c, $format ) = @_;
      my $fmt = $format || $self->{_format};
      return sprintf $fmt, (32 + $c*9/5);
  }

  sub format {
      my ( $self, $format ) = @_;
      $self->{_format} = $format if $format;
      $self->{_format};
  }

  sub new {
      my $class = shift;
      bless {
          _format => '%.2f'
      }, $class;
  }