can you please put some of the script/coding ...
If you meaning the email verification script, here is some of the coding:
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
@ISA = qw(Exporter);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
@EXPORT_OK = qw( valid validlist );
@EXPORT = qw(
$VERSION = '0.3';
# Preloaded methods go here.
my $lwsp = "(?:(?:\\r\\n)?[ \\t])";
Mail::RFC822::Address validates email addresses against the grammar described
in RFC 822 using regular expressions. How to validate a user supplied email
address is a FAQ (see perlfaq9): the only sure way to see if a supplied email
address is genuine is to send an email to it and see if the user receives it.
The one useful check that can be performed on an address is to check that the
email address is syntactically valid. That is what this module does.
This module is functionally equivalent to RFC::RFC822::Address, but uses
regular expressions rather than the Parse::RecDescent parser. This means that
startup time is greatly reduced making it suitable for use in transient scripts
such as CGI scripts.
=head2 valid ( address )
Returns true or false to indicate if address is an RFC822 valid address.
Paul Warren, [email]firstname.lastname@example.org[/email]
=head1 COPYRIGHT and LICENSE
This program is copyright 2001-2002 by Paul Warren.
Permission is hereby granted, free of charge, to any person obtaining a copy of
this software and associated documentation files (the "Software"), to deal in
the Software without restriction, including without limitation the rights to
use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies
of the Software, and to permit persons to whom the Software is furnished to do
so, subject to the following conditions: The above copyright notice and this
permission notice shall be included in all copies or substantial portions of