#!/human/mouth
use active;
use ME;
use Topic qw/DNS/;
my $topic = Topic::DNS->new( slide => 'Spork');
my $me = ME->bind([ qw/mouth ears/ ]);
while( $me->say($topic) or my $ears = $me->listen() ) {
    kill STOP => $me->say($topic);
    my $question = <$ears>;
    say "这个问题问得好！";
    say $ears $topic->answer($question);
    kill CONT => $me->say($topic);
};
say "真的木问题鸟";
$topic->close();
__END__