sub send_aim {
    local($_) = shift;
    my $ready = 0;
    $conn->set_handler(config => sub {$ready = 1});
      $AIM->do_one_loop;
    $conn->send_im($to_screenname, "From $name: $_");
}