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>