or download this
my $SELECT = "SELECT * FROM mytable WHERE usercode=? AND unsubscribe
+dby = ''";
my $UPDATE = "UPDATE mytable SET subscribed = '0', unsubscribedby =
+'SYSTEM' WHERE usercode=? AND unsubscribedby = ''";
...
or die "<div>Could not execute SQL statement ... maybe invalid?</d
+iv><div>$!</div>";
$sth->finish();
}