sub getsqlvalue {
    my ($dbh,$sqlstatement)= @_;
    my ($value) = $dbh->selectrow_array($sqlstatement) or die "Could not execute MySQL statement: '$sqlstatement' " . $dbh->errstr;
    return $value;
}