I'm still having the same problem. It runs forever without ever sending the instant message. I added some print statements to the anonymous subroutine for debugging and apparently it never gets run. Here's the updated version:

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();
[download]