sub addressExists { my $address=shift @_; my $sql = 'SELECT * FROM emails WHERE `email`=?'; my $sth = $dbh->prepare( $sql ); $sth->execute($address); }