captcha-gen

#!/usr/bin/perl

use strict;
use warnings;
use CGI qw/:standard/;
use lib qw(/path/to/module);
use NPCaptcha;

print "Content-type: text/html\n\n";

print
"<html>
<head><title>Simple form</title></head>
<body>
    <form action='/cgi-bin/simple-form.pl' method='post'>
        Ваше сообщение:<br>
        <textarea rows='3' cols='40' name='message'></textarea><br>
        Введите код подтверждения:
        <input name='captcha' type='text' size='8' maxlength='10'>
        <img src='/cgi-bin/captcha.pl' alt= 'captcha'><br>
        <input type='submit' value='Отправить' name='submit'>
    </form>
</body>";

my $captchaValue = param('captcha');
if(defined $captchaValue)
{
    $ENV{HTTP_COOKIE} =~/captcha_rcpt=([\d\.]+)/; # Получаем значение cookie
    my $obCaptcha = NPCaptcha->new(
        extensions => ['gif', 'jpg'],
        remoteAddr => $ENV{REMOTE_ADDR},
        cookieValue => $1,
        captchaValue => $captchaValue,
        tmpdir => '/my/tmp/dir'
    );
    print '<hr>';
    if($obCaptcha->check())
    {
        print 'Проверка пройдена успешно. Вы ввели сообщение:<br>' . param('message');
    }
    else
    {
        print 'Проверка не пройдена, вероятно вы - робот ;-)';
    }
}
print "</body></html>";