Hi perl monks,
i worked mysql version 5.0.16 and perl version 5.6.1(Net::Mysql-0.04) it gonig smooth. now my mysql server changed with 5.0.27 working with perl 5.6.1(Net::Mysql-0.09). it is retiving some table data .But some few table it is hanging those tables not having much data also even i tested in the server same tables with same query working fine. here is my code

use Net::MySQL;
our $mysql = Net::MySQL->new(
    hostname => "$Hostip",
    database => 'DB',
    user     => 'test123',
    password => 'test123'
);
my (@value) = selectRecord('MASTER','USER_NAME',"USER_ID = 'test' AND 
+DELETED=0");

print "@value\n";

sub selectRecord {
    
    
    my($TableName,$FieldName,$Condition)=@_;
    my(@Result);
    $mysql->query(qq{SELECT $FieldName from $TableName where $Conditio
+n});
    if ($mysql->is_error) {
        my $DBError = $mysql->get_error_message;
        print "$DBError\n";
        return(0);
    }
    else {
        my $RecordSet = $mysql->create_record_iterator;
        while (my $Field = $RecordSet->each) {
            push(@Result ,$Field->[0]);
        }
    }
    #Sorting arrays
    @Result = sort {uc($a) cmp uc($b)} @Result;
    return(@Result);
}
$mysql->close;
[download]