use threads;

...

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