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;

$prices_file = "/usr/home/user/public_html/site/prices.txt";
open (OUT_FILE, ">".$prices_file) || die "ERROR: *** Cannot open outpu
+t file: $prices_file. ***\n";
...
my $sth = $dbh->prepare(qq{UPDATE database SET htmlvar=? WHERE ID=?});
$sth->execute($htmlvar, $ID) or die $dbh->errstr;
$sth->finish;