perl script timeout

use strict;
#
$SIG{ALRM} = sub {
  print "UNKNOWN: Script timed out\n";
  &do_page("nhkotest-002=>check failed - script timeout");
  exit -1;
};

# Start the timer to script timeout
alarm(55);