Help for this page
my $HTMLCheck = $db->select("select HTMLCheck from Contact where Conta +ctID=$ContactID")[1]->{HTMLCheck};
my $HTMLCheck = {$db->select("select HTMLCheck from Contact where Cont +actID=$ContactID")}[1]->{HTMLCheck};