Gestão de Timeouts em Perl

Os sinais são utilizados para os timeouts em Unix. Protegidos num bloco eval{}, o handler é inicializado para capturar os sinais de alarme e fazer uma determinada acção após alguns segundos.

Exemplo

eval {
local $SIG{ALRM} = sub { die "alarm clock restart" };
alarm 10;
flock(FH, 2);   # blocking write lock
alarm 0;
}; 

if ($@ and $@ !~ /alarm clock restart/) { die } 

Se a operação do timeout for system() ou qx() esta técnica pode ser utilizada para criar zombies. Se for importante, deve fazer um fork() e exec() e terminar os processos child.