sub new_sth {
   my $userid = ...;
   my $dbh = shift;
   my $statement = shift;

   $statement = "/* userid:$userid */ $statement";

   return $dbh->prepare($statement);
}