my $sth1 = $dbh_0->prepare ("select * from log");
my @fields = @{$sth1->{NAME_lc}};
$sth1->execute();
$sth1->bind_columns (\@rec{@{$sth1->{NAME_lc}}});