#!/usr/bin/perl

use SOAP::Transport::HTTP;

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

package Demo;

sub hi {
	return 'Hello';
}

1;