my $soap = SOAP::Lite
-> uri('http://server.name/nas/')
-> outputxml(1)
;
$resp = $soap->call('nas:show_session_ids');
$resp = $soap->call('nas:add_device' =>
   SOAP::Data->name(sessionid     => $sid      )->prefix('nas'),
   SOAP::Data->name(ip            => $ip       )->prefix('nas'),
   SOAP::Data->name(comment       => $comment  )->prefix('nas'),
   SOAP::Data->name(hostname      => $hostname )->prefix('nas'),
   SOAP::Data->name(domain        => $domain   )->prefix('nas'),
   SOAP::Data->name(location      => $location )->prefix('nas'),
   SOAP::Data->name(unmanaged     => $unmanaged)->prefix('nas'),
   SOAP::Data->name(accessmethods => $accessm  )->prefix('nas'),
);