#!/usr/bin/perl

use LWP::Simple;

for $i ( 0 .. 100000 )
{
	if ( !head('http://localhost/svn/test/trunk/file') )
	{
		print STDERR "Failed at $i\n";
		exit 1;
	}
}


