#!/usr/bin/perl -w

use constant MAX_ITERATIONS => 1000000;
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;
    print "Caught interrupt\n";
#   exit(0) if !$handling_request;
}

sub handle_request {
    print ("hi: $iterations\n") if $iterations % 10000 == 0;
}

$SIG{INT} = \&sig_handler;

# init();

while (!$exit_requested && $iterations <= MAX_ITERATIONS && (time - $start_time) < MAX_TIME) {
    $handling_request = 1;
    handle_request();
    $iterations++;
    $handling_request = 0;
}

print ("Exit value: Iteration = $iterations exit_req = $exit_requested\n");