#-----below code are work fine when i test it ( just take out "RIGHT(NAME,1) AS age " from the code---------------
$sql_syntax = qq(SELECT ID, recipID, NAME FROM $table_recipient WHERE ( Sender_ID ='$sender_ID') );

&SQL_EXE($dbh,$sql_syntax);

my( $ID, $recipID, $NAME);

$sth->bind_columns( undef, \$ID, \$recipID);

print<<"[HTML]";
$NAME
[HTML]
# The scritp print out a list NAME field value sucessful
#-----code end------------------------