Select Code to Download

        my $sth = 
          $dbh->prepare('UPDATE person SET email = ? WHERE person_id =
+ ?');
...
            $email =~ s!\@.*!\@plusthree.com!;
            $sth->execute($email, $id);
        }

        my $sth = 
          $dbh->prepare('UPDATE person SET email = ? WHERE person_id =
+ ?');
...
                }
            }
        }

   UPDATE person SET email = 'info___...___@plusthree.com' WHERE perso
+n_id = 408700;