myuser mypassword ##

##

 
use SOAP::Lite +trace;
my $client = SOAP::Lite
        ->readable(1)
        ->uri($uri)
        ->proxy($proxy);

my $Username = SOAP::Header->name('Username' => $username);
my $Password = SOAP::Header->name('Password' => $password);
         
my $UsernameToken = SOAP::Header->name('UsernameToken')
            ->value(\SOAP::Header->value($Username, $Password));
my $security = SOAP::Header->name('Security')
            ->attr({'xmlns' => 'http://schemas.xmlsoap.org/ws/2002/xx/secext'})
            ->value(\$UsernameToken);

$elem1 = SOAP::Data->name('ELEM1' => "value1");
$elem2 = SOAP::Data->name('ELEM2' => "value2");
$response = $client->mymethod($elem1,$elem2);
 

##

##

 
my $client = SOAP::Lite
        ->readable(1)
        ->uri($uri)
        ->proxy($proxy)
        ->envelope($envelope);