net::AIM TOC buddy sign on notification

[cello1000]

I am trying to make a bot for AIM with perl. I want the bot to be able to know when a buddy signs on. I am useing this:


$aim = new Net::AIM;
$aim->newconn( Screenname => $screenname, Password => $password )
or die "didn't connect\n";

my $conn = $aim->getconn();

$conn->set_handler('UPDATE_BUDDY', \&on_buddy);

sub on_buddy {
print "SOMETHING HAPPENED";
my ($self, $event) = @_;
my ($freind, $ison) = @{$event->args()};
#rest of buddy sub...
}


SOMETHING HAPPENED is not even being printed.. so the sub is not even being run.

I am useing

http://simpleaim.sourceforge.net/docs/TOC.txt

as my guide for TOC.

It would be much appreciated if someone knew why my buddy sub isnt being called.