1#!perl -w
2#!d:\perl\bin\perl.exe 
3
4# -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko --
5
6use SOAP::Transport::HTTP;
7
8SOAP::Transport::HTTP::CGI   
9  -> dispatch_to('Style')     
10  -> handle;
11
12package Style; 
13
14sub echo { 
15  return SOAP::Data->name(echo => $_[1]),
16         SOAP::Header->name('html:style' => <<EOS)->uri('http://www.w3.org/Profiles/XHTML-transitional');
17echo { display: block; color: red; }
18EOS
19}
20