#!/usr/bin/perl -w
use IO::Socket;
use Encode;
use utf8;

unless (@ARGV > 0) { die "usage: host ..." }
$host = shift(@ARGV);
$EOL = "\015\012";
$BLANK = $EOL x 2;

$remote = IO::Socket::INET->new( Proto     => "tcp",
					 PeerAddr  => $host,
					 PeerPort  => "http(80)",
 			         );
unless ($remote) { die "cannot connect to http daemon on $host" }
$remote->autoflush(1);

while (1) {
	$msg = "GET /engine3.php?req_sale=5205&page=1\r\n";
	$remote->send($msg);
	while ( <$remote> ) { 
		$temp .= $_; 
	}
	utf8::encode($temp);
	print "$temp\n";
	undef($temp);
	sleep(2);	
#	close $remote;
}