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