use Config;

# copied from perldoc Config
my %sig_num;
my @sig_name;
unless($Config{sig_name} && $Config{sig_num}) {
    die "No sigs?";
} else {
    my @names = split ' ', $Config{sig_name};
    @sig_num{@names} = split ' ', $Config{sig_num};
    foreach (@names) {
        $sig_name[$sig_num{$_}] ||= $_;
    }   
}

# ignore child signals, automatically reaping child processes
$SIG{$sig_num{CHLD}} = 'IGNORE';