$soap=SOAP::Lite->new(proxy=>$soapurl);
  $soap->on_fault(\&soapGetBad);
  $soap->on_action(sub{qq("$_[0]")});
  $soap->autotype(0)->readable(1);
  $soap->default_ns('urn:http://www.something.com/somewhere');
  
  # Open session
  $som=$soap->call('OpenSession',
                   SOAP::Data->name('parameter1')->value('12'),
                   SOAP::Data->name('parameter2')->value('10'));
  
  if(defined($som->result)){
    $sessionID=$som->result;
    
    # Open project
    print "Test1\n";  
    $som=$soap->call('OpenProject',
                     SOAP::Data->name('sessionid')->value($sessionID),
                     SOAP::Data->name('projectname')->value($project));
    print "Test2\n";
  ...