I can't seem to get Net::AIM to work.

[deadpool42]

All I want to do is send a few instant messages. After reading several tutorials and a discussion on another site, I've come up with this code:

use Net::AIM;

my $aim = new Net::AIM;
$aim->newconn(Screenname => 'TeamMonkeyCrap', Password => '*******');
my $conn = $aim->getconn();
$conn->set_handler(config => sub {
                              my $aim = shift;
                              $aim->send_im('gazuga69', 'It worked!');
                             });
$aim->start();

The problem is that it just runs forever with sending the message. After adding some print statements, I noticed that the anonymous subroutine never gets run. Any ideas?

 

[deadpool42]

Has anyone used this module successfully?