#!/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);