Otherwise, temporary GDBM files don't get unlinked
when I SIGINT the process.
use Time::HiRes qw(gettimeofday tv_interval);
use WWW::Mechanize;
use Data::Dumper;
use Time::HiRes qw(gettimeofday tv_interval);
use WWW::Mechanize;
use Data::Dumper;
my $nproc = 4;
my $slow = 0.5;
my %opts = (
my $nproc = 4;
my $slow = 0.5;
my %opts = (
} if $xmlstarlet;
my %workers;
} if $xmlstarlet;
my %workers;
+$SIG{INT} = sub { exit 130 };
$SIG{TERM} = sub { exit 0 };
$SIG{CHLD} = sub {
while (1) {
$SIG{TERM} = sub { exit 0 };
$SIG{CHLD} = sub {
while (1) {