Select Code to Download

#!/usr/bin/perl

...
        print "child starting\n";
        sleep 5 while kill ALRM => getppid;
}

write(1, "setting main handler\n", 21setting main handler
)  = 21
...
rt_sigaction(SIGALRM, {0x713790, [], 0}, {SIG_DFL}, 8) = 0
rt_sigprocmask(SIG_SETMASK, [], NULL, 8) = 0
write(1, "sub f end\n", 10sub f end

rt_sigprocmask(SIG_BLOCK, [ALRM], [], 8) = 0
rt_sigaction(SIGALRM, {SIG_DFL}, {0x713790, [], 0}, 8) = 0
...
rt_sigaction(SIGALRM, {0x713790, [], 0}, {SIG_DFL}, 8) = 0
rt_sigprocmask(SIG_SETMASK, [], NULL, 8) = 0
write(1, "sub f end\n", 10sub f end

rt_sigprocmask(SIG_BLOCK, [ALRM], [], 8) = 0
rt_sigaction(SIGALRM, {SIG_DFL}, {0x713790, [], 0}, 8) = 0
...
rt_sigaction(SIGALRM, {0x713790, [], 0}, {SIG_DFL}, 8) = 0
rt_sigprocmask(SIG_SETMASK, [], NULL, 8) = 0
write(1, "sub f end\n", 10sub f end

write(1, "sub f start\n", 12sub f start
)           = 12
...
rt_sigprocmask(SIG_SETMASK, [], NULL, 8) = 0
--- SIGALRM (Alarm clock) @ 0 (0) ---
+++ killed by SIGALRM +++