#!/usr/bin/perl
#use strict;
#use warnings;
use Win32::IE::Mechanize;

  my $ie = Win32::IE::Mechanize->new( visible => 1);
   	my $url ='http://test.html'; #dummy url
	$ie->get( $url );
	 $ie->set_visible($username,$password );
 # $ie->follow_link("javascript:document.forms[0].submit();");
 $ie->find_link(url => "javascript:document.forms[0].submit();")|| die "can't call $!";