sub get_value {
  my ($dbh, $field_name) = @_;
  my $sth = $dbh->prepare_cached("select $field from table where id = ?");
  my $value = $sth->fetchrow_array;
  $sth->finish;
  $value;
}