sub hdl_ALRM
{
  $SIG{ALRM} = \&hdl_ALRM;
  # do stuff here...
}
$SIG{ALRM} = \&hdl_ALRM;