PROFESSIONAL INSTALLERS HERE

NOTE: For customized image library use be sure to place your order here.
Otherwise, use and distribute this code for FREE !!
We will contact you through your form successfully using the CAPTCHATHEDOG code.
USE AT YOUR OWN RISK
5 EASY STEPS

Step 1 HTML - Add to "BODY" tag or integrate to your "onLoad=yourFunction"

Step 2 HTML - Paste just above your form's "submit" button

Step 3 perl - Form Script - Add anywhere to catch robot

Step 4 perl - Form Script - Code Example to handle return

Step 5 perl - New Script - Create new perl file(chmod 755) and follow NOTES in header:

#!/usr/bin/perl
# NOTE: edit above line for your server
# NOTE: save with name: captchathedog
# NOTE: place this file in /cgi-bin/ directory
# NOTE: please modify the "yourDomain" line below
# questions to: www.CaptchaTheDog.com/contact.html

&readVars;

# The Program

# XXXXXXXXX MODIFY THIS LINE ONLY  XXXXXXXXXXX
   $DNCdomain = "yourDomain";  # "your domain"
      $DNCversion = "2";  # "version"
      # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

$DNCsel = $in{'DNCsel'};	
      $DNCsession = $in{'DNCsession'};
      $DNCuse = $in{'DNCuse'};
      $DNC6 = $ENV{'REMOTE_ADDR'};
      $DNC7 = $in{'DNC7'};
      $uGrab = grabWebPage("http://www.captchathedog.com/cgi-bin/captchathepage?DNCuse=$DNCuse&DNCsession=$DNCsession&DNCsel=$DNCsel&DNCversion=$DNCversion&DNCdomain=$DNCdomain&DNC6=$DNC6&DNC7=$DNC7");
      print "$DNCGrab";
      exit;

sub grabWebPage()  {
          $DNCWebPage = $_[0];
              use LWP::Simple;
                  $DNCGrab = get($DNCWebPage);
                      return $DNCGrab;
                      }

sub readVars {
                          my @in = split /&/, $ENV{'QUERY_STRING'};
                              foreach my $pair (@in) {
                              	my ($key,$val) = split /=/, $pair;
                              		$in{$key} = $val;
                              		    }
                              		    }

"perl isn't a toolbox, but a small machine shop where
you can special-order certain sorts of tools
at low cost and in short order."
-- Larry Wall ( creator of the programming language perl )