{
  local $| = 1;
  local $SIG{ALRM} = sub { print `/usr/bin/fortune`; alarm ALARM_TIME; };
  alarm 1;
  ... process that (might) take a very long time ...
  alarm 0;
}