Select Code to Download

my $price = "50";

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

<li>The price is \$$price</li>

<li>The price is $50<li>