#!/usr/bin/perl

use strict;
use lib qw(/path/to/module);
use NPCaptcha;

my $ob = NPCaptcha->new(             # Создаём объект
    imagesdir => '/my/images/dir',   # Каталог с CAPTCHA изображениями
    extensions => ['gif', 'jpg'],    # Расширения изображений в каталоге
    remoteAddr => $ENV{REMOTE_ADDR}, # IP адрес клиента запросившего изображение
    tmpdir => '/my/tmp/dir'          # Каталог для хранения временных файлов
);
print "Pragma: no-cache\n";                 # Запрещаем кэширование изображения
print "Set-Cookie: ".$ob->getCookie()."\n"; # Устанавливаем cookie
print "Content-type: image/jpg\n\n";        # Указываем тип контента
print $ob->getImage();                      # Собственно отдача изображения в браузер пользователя