#/usr/bin/perl 
#s0t4ipv6@shellcode.com.ar
use Socket;

my ($port,$host,$proto,$paddr,$line,$recive, $count);

$line="head / /http\r\n\n";
if (!defined($ARGV[0]) || !defined($ARGV[1]) ) {
                print "hthe.pl coded by s0t4ipv6\n";
                print "use: $0 www.target.com 80\n";
                exit(0); }

$port=$ARGV[1];
$host=inet_aton($ARGV[0]) or die "Unknown host: $host\n";
$proto = getprotobyname('tcp') or die "Error: $!";
$paddr = sockaddr_in($port, $host) or die "Error: $!";


print "\nHTTP Header print by s0t4ipv6\n";
printf "host:%s\tport:%d\n",$ARGV[0],$port;
print "-"x"35"."\n";

socket(SOCK,PF_INET,SOCK_STREAM,$proto||0) or die("Socket: $!\n");
connect(SOCK, $paddr) or die "Error: $!";

sleep(1);
send(SOCK,$line,0);
while ( $count < 3) {
	recv(SOCK,$recive,1,MSG_EOR);
	print $recive;
	if ($recive eq "" ) { $count++; print "<null>\n"; }
}

print "\n";
close(SOCK);
exit(0);