$soapreg = SOAP::Lite
             ->proxy($regws)
             ->uri  ("$regns")
             ->autotype(0);

  $results = $soapreg -> $regmethod
             (SOAP::Data->name('username') 
                        ->value($cun),
              SOAP::Data->name('password')
                        ->value($cpw),
              SOAP::Data->name('status')
                        ->value('1'),
              SOAP::Data->name('filter')
                        ->value($testdata));