子プロセス無いで死ぬとその後継続しない

slack_rtm_bot_test1.pl

use strict;
use warnings;
use utf8;
use Encode;
use Slack::RTM::Bot;

while(1){
  my $bot = Slack::RTM::Bot->new(
      token           => 'XXXX',
      options         => +{ max_message_size => 20480 }
  );

  $bot->on(
      +{ },
      \&main::display_tl,
  );

  warn 'start';
  $bot->start_RTM();
  sleep 60;
  $bot->stop_RTM();
  warn 'stop';
}

sub display_tl {
    my ($response) = @_;
    if($response->{text} && $response->{channel} && $response->{user}){
        printf("[%s] <%s%s> :%-10s\n",
            $response->{ts},
            $response->{user},
            $response->{channel},
            Encode::encode_utf8($response->{text}),
        );
        die 'hoge';
    }
}

別案

        eval {
            $action->{routine}->($response);
        };
        if($@){
            warn '$@';
            exit(1); 
        }

ちなみにサンプルコードだと、34行目のdie をはずしてcallbackが正常終了し、
$bot->stop_RTM();
が呼ばれた場合もプロセスがゾンビになって残り続ける。
while ループでインスタンスを作り直す度にゾンビが無限に増える。

Slack::RTM::Bot#stop_RTM の

	kill 9, $child;

しているところを

        kill 'TERM', $child;
        waitpid($child, 0);

にすると安全に子プロセスを終了を親が回収できそう。