From Net::AIM:

$aim->start()
    This just starts an infinte loop of $aim->do_one_loop;

If you take out the $aim->start;, your script should work.

Update Hmm, just tried it and it doesn't work. You might need to set some type of handler to send the message and then do the $aim->start...