Bot на Perl Net::OSCAR

Есть известный пример icq бота.

Code:

#!/usr/bin/perl  
use Net::OSCAR qw(:standard);    

my $text = 'Hellow world!'; 
# текст для автоответчика..    

$uin_conn="333333"; 
# ваш номер ICQ, на котором будет висеть бот  

$password="123"; 
# пароль от этого номера.    

my $aimbot = Net::OSCAR->new();  
$aimbot->signon($uin_conn, $password);    
$aimbot->set_callback_im_in (\&on_im);  
sub on_im {      
my ($aimbot, $sender, $message, $away) = @_;  $aimbot->send_im($sender, $text );  
}  while(1) {   
$aimbot->do_one_loop();  
}  

Как расширить болтливость бота?
Т.е подсунуть ему файлик где будет указан ответ на определенное слово.