#!/usr/bin/perl
use IO::Socket; #by Cypher
#http header sender

print "Enter host to connect: "; chomp ($host=<STDIN>); #get hostadress

my $so = new IO::Socket::INET (
				PeerAddr => $host,
				PeerPort => 80, 
				Proto => 'tcp'
				); #establish connection

die "Socket Error: $!\n" unless $so;
print "Enter page(/index.html, for example): "; chomp($page=<STDIN>);
print "User agent: "; chomp($agent=<STDIN>);
print "Referer(not a typo): "; chomp($ref=<STDIN>);
print "Cookie: "; chomp($cookie=<STDIN>);
print "Host: "; chomp($h=<STDIN>); #get header

$msg = "GET $page HTTP/1.0\r\n"."User-Agent: $agent\r\n"."Referer: $ref\r\n"."Cookie: $cookie\r\n"."Host: $h\r\n"."\r\n";
print $msg;
print $so ($msg); $send message to server

while ($a = <$so>) { print $a; } #get and print whatever the server sends us

close ($so); #close connection