my $agent = Win32::IEAutomation->new(visible => 1);
$agent->gotoURL($URL);
$agent->getTextBox('id:',"tb")->SetValue($name);
$agent->getButton('id:',"cmd")->Click();
Wait_For_Complete_Load();

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