$SIG{"ALRM"} = sub { print "TIME_OUT! at $timeout\n"; exit; };
  alarm ($timeout);

##</code><code>##

  $SIG{"ALRM"} = sub { next; };
  alarm($timeout);

##</code><code>##

  $SIG{"ALRM"} = sub { next; };
  alarm($timeout);