sub send_to_AOL {
   ...
   my $rv = send($self->{_socket}, $data, 0);
   ...
   return $rv;
}

##</code><code>##

$aim->get_info("screenname");
$response = $aim->do_one_loop();