#!c:\\perl\\bin
use LWP::Debug qw(+);
use strict;
use Win32::IEAutomation;
use Win32::IEAutomation::WinClicker; 
my $user = "xxxxxxxxx";
my $pass = "xxxxxx";
my $ie = Win32::IEAutomation->new();
$ie->gotoURL('https://xxx.xxx.com/'); 
sleep 2;     
my $clicker = Win32::IEAutomation::WinClicker->new();
$ie->getTextBox('name:', "USER")->SetValue($user);
$ie->getTextBox('name:', "PASSWORD")->SetValue($pass);
$ie->getButton('caption:', "Login")->Click;

sleep 2;
$ie->getFrame("name:", "header")->getLink("linktext:", "Reports")->Click;