sub init {
   $SIG{CHLD} = ...;
   ... init code ...
}

{
   init()
   ... main code ...
}