如何让我的Perl Jabber机器人成为事件驱动程序？

这是我的来源：http://pastebin.com/03Habbvh

# set jabber bot callbacks
$jabberBot->SetMessageCallBacks(chat=>&;chat);
$jabberBot->SetPresenceCallBacks(available=>&;welcome,unavailable=>&;killBot);
$jabberBot->SetCallBacks(receive=>&;prnt,iq=>&;gotIQ);

$jabberBot->PresenceSend(type=>"available");
$jabberBot->Process(1);

sub welcome
{
    print "Welcome!n";
    $jabberBot->MessageSend(to=>$jbrBoss->GetJID(),subject=>"",body=>"Hello There!",type=>"chat",priority=>10);
    &keepItGoing;
}

sub prnt
{
    print $_[1]."n";
}

#$jabberBot->MessageSend(to=>$jbrBoss->GetJID(),body=>"Hello There! Global...",priority=>10);
#$jabberBot->Process(5);
#&keepItGoing;

sub chat
{
    my ($sessionID,$msg) = @_;
    $dump->pl2xml($msg);
    if($msg->GetType() ne 'get' && $msg->GetType() ne 'set' && $msg->GetType() ne '')
    {
        my $jbrCmd = &trimSpaces($msg->GetBody());
        my $dbQry = $dbh->prepare("SELECT command,acknowledgement FROM commands WHERE message = '".lc($jbrCmd)."'");
        $dbQry->execute();
        if($dbQry->rows() > 0 && $jbrCmd !~ /^insert/si)
        {
            my $ref = $dbQry->fetchrow_hashref();
            $dbQry->finish();
            $jabberBot->MessageSend(to=>$msg->GetFrom(),body=>$ref->{'acknowledgement'},priority=>10);
            eval $ref->{'command'};
            &keepItGoing;
        }
        else
        {
            $jabberBot->MessageSend(to=>$msg->GetFrom(),body=>"I didn't understand you!",priority=>10);
            $dbQry->finish();
            &keepItGoing;
        }
    }
}

sub gotIQ
{
    print "iqn";
}

sub trimSpaces
{
    my $string = $_[0];
    $string =~ s/^s+//; #remove leading spaces
    $string =~ s/s+$//; #remove trailing spaces
    return $string;
}

sub keepItGoing
{

    print "keepItGoing!n";
    my $proc = $jabberBot->Process(1);
    while(defined($proc) && $proc != 1)
    {
        $proc = $jabberBot->Process(1);
    }
}

sub killBot
{
    print "killingn";
    $jabberBot->MessageSend(to=>$_[0]->GetFrom(),body=>"Logging Out!",priority=>10);
    $jabberBot->Process(1);
    $jabberBot->Disconnect();
    exit;
}