#!/usr/bin/env perl

use POSIX qw(:signal_h);

$sigset = POSIX::SigSet->new(SIGALRM); # define the signals to block
$old_sigset = POSIX::SigSet->new;      # where the old sigmask will be kept

unless (defined sigprocmask(SIG_BLOCK, $sigset, $old_sigset)) {
    die "Could not block SIGALRM\n";
}

system("timeout 5 sleep 20");