Select Code to Download

#!/usr/bin/perl -w

...
    
    $yahoo->send('recipient_yahoo_id', 'hi there!');

sub get_connection
{
...
    $server->autoflush(1);
    return     $self->handle($server);
}