sub main {
   ... main code ...
}

{
   local $SIG{CHLD} = ...;
   ... init code ...
   main();
}