sub addstring
{
...
...
...
my $answer=suck($socket);
if ( $answer == 1 ) { return 1;}
if ( $answer == 2 ) {print "Modul $modul hat versucht auf widget $widgetname zuzugreifen, dieses Widget existiert nicht";return 0; }
if ( $answer == 3 ) { print "Es wurde durch Modul $modulname ein falscher Parameter für widget $widgetname übergeben";return 0; }
...
...
...
}

sub suck 
{
...
...
...
   if ( index($message,"listen") >=0 ) { debug ("Discarded listen message ($message)");goto SUCKLOOP;}
   if ( index($message,"ignore") >=0 ) { debug ("Discarded ignore message ($message)");goto SUCKLOOP;}
   if ( index($message,"connect") >=0 ) { debug ("successfully registered as a client ($message)");return 1;}
   if ( index($message,"huh?") >=0 ) 
     { 
      debug("error ($message)");
      if ( $message = "huh? unknown widget id" ){return 2;}
      if ( $message = "huh? incorrect parameter" ){return 3;}
      ....
      ....
      }
   if ( index($message,"success") >=0 ) { debug("success");return 1;}

}