print "The username is ".($RS->Fields(0)->value).".\n";