my $AIM = new Net::AIM;
$AIM->newconn(Screenname   => $name,
        Password     => $password,
        AutoReconnect => 1)
or die "Unable to open AIM connection.\n";
my $conn = $AIM->getconn();

##</code><code>##

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: $_");
}