my $sth = $dbh->prepare($sql);
$sth->execute();
$sth->bind_col( 1, \my $user_name );
while ( $sth->fetch() ) {
  print "$user_name\n";
}