Select Code to Download

sub start {
    my $self = shift;
...
    last unless $self->do_one_loop();
    }
}

use threads;

...

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