use strict;
use warnings;
use win32::IEAutomation;
use Win32::IEAutomation::Element;
use Win32::IEAutomation::Table;
use Win32::IEAutomation::WinClicker;
my $IE = Win32::IEAutomation->new( visible => 1, maximize => 1);
$IE->gotoURL('http://url') ;
$IE->WaitforDone;
$IE->getTable("class:", "as_txt_logincm_font_header_normal")->getTextBox('name:',"txtUserName")->SetValue('user1>');