use constant MAX_ITERATIONS => 1000; use constant MAX_TIME => 600; use warnings; use strict; my $start_time = time; my $iterations = 0; my $exit_requested = 0; my $handling_request = 0; sub sig_handler { $exit_requested = 1; exit(0) if !$handling_request; } $SIG{TERM} = \&sig_handler; init(); while (!$exit_requested && $iterations <= MAX_ITERATIONS && (time - $start_time) < MAX_TIME) { $handling_request = 1; handle_request(); $iterations++; $handling_request = 0; } exit(0);