#!/usr/bin/perl -w use strict; use warnings; use CGI; use FindBin qw($Bin); use lib $Bin . "/../lib"; use Captcha; my $cgi = new CGI; my $captcha = new Captcha(); print <CAPTCHA Test

Start over

EOF if ($ENV{REQUEST_METHOD} ne "POST") { print '
', "

This is just a test of the CAPTCHA Perl module.

\n"; print $captcha->link(); print '
'; } else { print "

You entered the ", ($captcha->ok($cgi->param("captcha")) ? "correct" : "wrong"), " CAPTCHA code.

\n"; } print "\n";