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