Select Code to Download

#!/usr/bin/perl

...
        _exit(0);
}
ok(1, 'survived signal storm');

1..1
# parent entering wrap_sigs loop
...
SIGALRM
SIGALRM
END failed--call queue aborted.