!/usr/bin/perl 
use SOAP::Transport::HTTP; 
SOAP::Transport::HTTP::Apache -> dispatch_to('WorldFunctions') -> handle; 
package WorldFunctions; sub new { bless {}, shift; }