All pastes #423809 Raw Edit

Miscellany

public text v1 · immutable
·published 2007-04-04 12:38 UTC
rendered paste body
#!/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;
}