my $usr = $dbh->prepare(q{SELECT user_id from user where user_id = ?})
   or die("usr prepare error: $!");
 $usr->execute($user_name)
   or die("usr execute error: $!");
 while (@row = $usr->fetchrow_array ) {
   if ($user_name eq $row[0]) {
     # Blah
   }
 }