Select Code to Download

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

sub send_aim {
    local($_) = shift;
...
      $AIM->do_one_loop;
    $conn->send_im($to_screenname, "From $name: $_");
}