use strict;
use warnings;

$| = 1;              # ungepufferte Ausgabe
                     # sonst sieht man nichts

# Signalhandler einsetzen
$SIG{'ALRM'} =\&alarm_handle;

# Nach 10 Sekunden erfolgt das Signal
alarm(10);     

# Hauptprogramm
while (1)
  {
   print ".";
   sleep 1;
  }

# Unterprogramm fuer Timeout
#
sub alarm_handle        
  {                  
  alarm(0);        
  print "Fehler\n";
  print "Zeitueberschreitung! Abbruch!\n";
  exit 0;           
  }