open (NAVI ,"$Ausgabe ");
  {  	
    local $/ = "\n\n";	
	  while(my $block = <NAVI> ){		  	  
		    next unless index($block,"SP Name:             SP". $SP) != -1  and
                    index($block,"SP Port ID:          ". $PORT) != -1;        
        my ($status) = $block =~ /^Link Status:\s+(\w+)/;
        print "Link status for SP $SP (Port $PORT): $status\n";        
    }
  }
  close(NAVI);