#! /usr/bin/perl

use strict;
use warnings;

$SIG{QUIT} = "IGNORE";

my $pid = fork() // die;
unless ($pid) {
    exit !exec "sleep 100";
}

$SIG{ALRM} = sub { warn "SIGALRM\n" };
$SIG{QUIT} = sub { warn "SIGQUIT\n" };

warn "childpid = $pid\n";
alarm(2);

warn "interrupted\n" while waitpid(-1, 0) == -1 and $!{EINTR};