sub trap_signals {
  $SIG{CHLD} = \&handler;
  :

##</code><code>##

sub trap_signals {
  my $sig = \%SIG;
  $sig->{CHLD} = \&handler;
  :