Примерно так (пишу с нуля прямо тут):
#!/usr/local/bin/perl
$|=1;
$alarmpr = 60; # in seconds
$SIG{'ALRM'} = 'alarm';
alarm $alarmpr;
&DoVeryLongOperation;
alarm 0;
&OutputResults;
exit;
sub alarm {
print STDOUT "<!-- ждемс -->\n";
alarm $alarmpr;
}
С уважением, Андрей Новиков
------------------------------------------------------------
Всероссийский Клуб Вебмастеров http://www.webclub.ru/
По официальным вопросам пишите mailto:webclub@webclub.ru
=============================================================================
= Apache-Talk@lists.lexa.ru mailing list =
Mail "unsubscribe apache-talk" to majordomo@lists.lexa.ru if you want to quit.
= Archive avaliable at http://www.lexa.ru/apache-talk =