use strict;
use Data::Dumper;
use WWW::Mechanize;
use POSIX qw(strftime);

my $currSysDate =strftime ("%b".'&year='."%y", localtime); # DAY Language

my $mech = WWW::Mechanize->new(autocheck => 1);

my $url = "http://www.somenet.com/login.aspx";
my $user = 'user';
my $pass = 'pass';

$mech->get( $url );

if ($mech->success())
{
	 $mech->submit_form(
      form_name => 'Form1',
      fields    => {
                    txtUsername    => $user,
                    txtPassword    => $pass,
                     },
      button    => 'Button3',
      );
	 $mech->get("http://www.somenet.com/showCardEmpMonthlyReport.aspx?month=$currSysDate&Reptype=&empcode=$user");
	 my $str = $mech->content();
	 print $str;

}

##</code><code>##

Error GETing javascript:__doPostBack('EmpSideMenu1$lnkAttendance',''): Protocol
scheme 'javascript' is not supported at array.pl line 10047

##</code><code>##

<TD class="sidemenu" style="BACKGROUND-IMAGE: url(Images1\MenuBg.jpg); BACKGROUND-REPEAT: repeat-x">&nbsp;&nbsp;&nbsp;
<a id="EmpSideMenu1_lnkAttendance" href="javascript:__doPostBack('EmpSideMenu1$lnkAttendance','')" style="color:White;width:160px;">Attendance Report</a></TD>

<script language="javascript">
<!--
	function __doPostBack(eventTarget, eventArgument) {
		var theform;
		if (window.navigator.appName.toLowerCase().indexOf("netscape") > -1) {
			theform = document.forms["Form1"];
		}
		else {
			theform = document.Form1;
		}
		theform.__EVENTTARGET.value = eventTarget.split("$").join(":");
		theform.__EVENTARGUMENT.value = eventArgument;
		theform.submit();
	}
// -->
</script>

##</code><code>##

use strict;
use Data::Dumper;
use Win32::IE::Mechanize;

my $ie = Win32::IE::Mechanize->new( visible => 1 );

my $url = "http://www.somenet.com/login.aspx";
my $user = 'user';
my $pass = 'pass';
		
$ie->get( $url );

if ($ie->success())
{
	 $ie->submit_form(
              form_name => 'Form1',
              fields    => {
                  txtUsername    => $user,
                  txtPassword    => $pass,
                   },
              button    => 'Button3',
              );

	 $ie->follow_link( text_regex => qr/Attendance Report/i ); #Not working

	 $ie->submit_form(
              form_name => 'Form1',        		
              button    => 'Button1',
              );

	 print $ie->content();			    
}

__END__
Some time Error as:

Can't locate object method "warn" via package "sssself" (perhaps you forgot to load "sssself"?) at C:/Perl/site/lib/Win32/IE/Mechanize.pm line 971.