This is Example of using perl with HTML

[% TRY %]
       [% PERL %]
         use WebService::CaptchasDotNet;
    my $o = WebService::CaptchasDotNet->new(secret   => 'secret',
                                          username => 'demo');

  	my $random = $o->random;
	print "random=", $random;
	my $url = $o->url($random);
        print $url;
       [% END %]
    [% CATCH %]
	
       Error:[% error.info %] 
    [% END %]
<html>
<title>
This is Example of using perl with HTML
</title>
</html>

##</code><code>##

#!/usr/bin/perl 
use strict;
use warnings;
use WebService::CaptchasDotNet;

my $o = WebService::CaptchasDotNet->new(secret => 'secret', username => 'demo');
	
my $random = $o->random();
print "Random value = ".  $random;
my $url = $o->url($random);