send: Cannot determine peer address at /usr/local/lib/perl5/site_perl/5.8.8/Net/MySQL.pm line 293

sub _execute_command
{
    my $self = shift;
    my $command = shift;
    my $sql = shift;
    my $mysql = $self->{socket};

    my $message = pack('V', length($sql) + 1). $command. $sql;
#293:
    $mysql->send($message, 0);

    $self->_dump_packet($message) if Net::MySQL->debug;

Use of uninitialized value in length at /usr/local/lib/perl5/site_perl/5.8.8/Net/MySQL.pm line 292.
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.8/Net/MySQL.pm line 292.
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.8/Net/MySQL.pm line 292.
send: Cannot determine peer address at /usr/local/lib/perl5/site_perl/5.8.8/Net/MySQL.pm line 293