#!"C:\xampp\perl\bin\perl.exe"

use Socket;

$port="80";


socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));


$sockaddr_in = 'S n a4 x8';


$in_addr = (gethostbyname("localhost"))[4];

$server_addr = pack( $sockaddr_in, AF_INET, $port, $in_addr );

connect(SOCK, $server_addr);
send (SOCK, "GET / HTTP/1.0\n\n", 0);

@data=<SOCK>;

close(SOCK);


print @data;
exit(0);