test.pl

#!/usr/bin/perl
use warnings;
use strict;

package MyBot;
use base qw( Bot::BasicBot );

# the 'said' callback gets called when someone says something in
# earshot of the bot.
sub said {
  my ($self, $message) = @_;
  if ($message->{body}) {
# return "$message->{body}"      <--------- this works but vvv this does not
    $self->check($message->{body});
  }
}

#Check shit to know what to reply
sub check {
  my $self = shift;
  my $transcript = $_[0];
  my @think = (
    {
      cond => sub { 1 }, 
      action => sub {
        return "hello"; 
        system q(~/Dropbox/speech/tts.sh "Hello, I\'m Luna, how can I help you?");
      }
    },
  );

  foreach my $action (@think) {
    if( $action->{cond}->($transcript) ){
      return $action->{action}->($transcript);
    }
  }
}


# help text for the bot
sub help { "I'm annoying, and do nothing useful." }

# Create an instance of the bot and start it running. Connect
# to the main perl IRC server, and join some channels.
MyBot->new(
  server => 'irc.freenode.net',
  channels => [ '#islk', '#islk2' ],
  nick => 'vaskobot',
)->run();