Yep, it is. Net::AIM's start is somewhat strangely implemented as:

sub start {
    my $self = shift;

    while (1) {
    last unless $self->do_one_loop();
    }
}
[download]

If you want to be particularly brave, you should be able to do it with threads too:

use threads;

...

my $thread = threads->new(sub { $aim->start });
$aim->send_im($victim, $msg);
[download]