Select Code to Download

package My::SOAP::Daemon;
use strict;
...


$_ ^=~ { AUTHOR => 'particle' };

use HTTP::Cookies ();
use SOAP::Lite ();
...
## ...and check for failure
die 'failure! ', $response->faultstring 
    if $response->fault;