sub Wait_For_Complete_Load
{
	while($agent->{agent}->Document->readyState !~ /complete/i)
	{ 
		sleep(1); 
	}
}