my $price = "50";

my $htmlvar = '<li>The price is \$$price</li>';

my $sth = $dbh->prepare(qq{UPDATE database SET htmlvar=? WHERE ID=?});
$sth->execute($htmlvar, $ID) or die $dbh->errstr;
$sth->finish;