# OR if you have SOAP::Lite object you can do
$s->transport->credentials('host_port', 'realm', 'user' => 'password');

# see LWP::UserAgent for difference and more documentation

# OR add user and password to your URL as follows:
# proxy => 'http://user:password@localhost/'

##</code><code>##

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)