Replace the printout line with this:

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

Then your result will get interpreted correctly. -zeno