use WWW::Mechanize::Firefox;
my $mech = WWW::Mechanize::Firefox->new( visible => 1, autoclose => 0,);
$mech->get('https://www.XXX.com/XXX/aspx/XXXLogin.aspx');
sleep(2);
$mech->field(username => 'XXX');
sleep 1; # give the page more time
$mech->click_button( name => 'btn_LoginSubmit' );
$mech->field(answer1 => 'XXX');
$mech->field(answer2 => 'XXX');
$mech->click_button( name => 'btnKBA_Submit' );
sleep(1);
$mech->field(password => 'XXX');
$mech->click_button( name => 'btnPwd_Submit' );
sleep(1);
        
$mech->follow_link( text_regex => qr/Investment Detail/i );
sleep(1);
#---Launch Popup windo---#
$mech->follow_link( text_regex => qr/Filter/i );