#!/usr/bin/perl # Simple CGI Mailhide Captcha use strict; use warnings; use Captcha::reCAPTCHA::Mailhide; # Your reCAPTCHA mailhide keys from # http://mailhide.recaptcha.net/apikey use constant MAIL_PUBLIC_KEY => ''; use constant MAIL_PRIVATE_KEY => ''; $| = 1; my $m = Captcha::reCAPTCHA::Mailhide->new; print "Content-type: text/html\n\n"; print < EOT # Output a protected email address. Note that this will fail with an error # until you supply real values for MAIL_PUBLIC_KEY and MAIL_PRIVATE_KEY. print "

Mail ", $m->mailhide_html( MAIL_PUBLIC_KEY, MAIL_PRIVATE_KEY, 'someone@example.com' ), "

\n"; print < EOT