my ($the_name) = $dbh->selectrow_array(<