#!/usr/bin/perl
use strict;
use warnings;
use DBI;
use threads;
#################################
## timer
##################################
$SIG{ALRM} = \&boucleSeptMin;
alarm 7*60;

sub boucleSeptMin {
        print "\nTime's up!\n";
        alarm 7*60;
}