#!perl -w
use strict;
$| = 1;

my @out;
my $running = 1;
for my $sig (qw(HUP TERM)) {
    $SIG{$sig} = sub {
        push @out, "Got SIG$sig\n";
        $running = 0 if $sig eq 'TERM';
    };
}

print "starting\n"; # let the test know we're hooked in
while ($running) {}
print sort @out;