NAME WebService::DeathByCaptcha - DeathByCaptcha Recaptcha API SYNOPSIS use WebService::DeathByCaptcha; my $dbc = WebService::DeathByCaptcha->new( username => 'dbc_user', password => 'dbc_pass', ); my $dbc_res = $dbc->recaptcha({ googlekey => '6Le-wvkSAAAAAPBMRTvw0Q4Muexq9bi0DJwx_mJ-', pageurl => 'https://www.google.com/recaptcha/api2/demo', # proxy => "http://user:password@127.0.0.1:1234", # proxytype => 'HTTP', }) or die $dbc->errstr; die $dbc_res->{error} if $dbc_res->{error}; my $captcha_id = $dbc_res->{captcha}; sleep 60; my $recaptcha_res; while (1) { $dbc_res = $dbc->get($captcha_id); die $dbc_res->{error} if $dbc_res->{error}; warn Dumper(\$dbc_res); if ($dbc_res->{status} eq '0' and $dbc_res->{text}) { $recaptcha_res = $dbc_res->{text}; last; } elsif ($dbc_res->{status} eq '0') { sleep 5; # another sleep } else { die; # should never happen } } # $res = $ua->post('https://www.google.com/recaptcha/api2/demo', Content => [ # 'g-recaptcha-response' => $recaptcha_res, # ]); DESCRIPTION WebService::DeathByCaptcha is for http://www.deathbycaptcha.com/user/api/newtokenrecaptcha AUTHOR Fayland Lam COPYRIGHT Copyright 2017- Fayland Lam LICENSE This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. SEE ALSO