Schleife in Schleife?

[Christian Kruse]

Hoi,

CK wuerde sicher vorschlagen, IO::Socket und IO::Select zu benutzen.

Ich wuerde vorschlagen, alarm() und $SIG zu benutzen:

$SIG{ALRM} = &do_alarm;
alarm(60);

sub do_alarm() {
  print "ausgabe";
  alarm(60);
}

Gruesse,
 CK