sub somefunction{
  local $SIG{ALRM} = sub { goto END };
  alarm 10; # wait 10 seconds before interrupting 

  while (1){sleep}

END:
}