Help for this page

Select Code to Download

Select or download this

local $SIG{'TERM'}    = \&killalarm;
local $SIG{'INT'}     = \&killalarm;
...
        my $params = shift;
    # some stuff, opening files, printing to files...
}

Select or download this

local $SIG{'TERM'}    = \&killalarm;
local $SIG{'INT'}     = \&killalarm;
...
        my $params = shift;
    # a lot of stuff, opening files, printing to files...
}