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

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

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;

}
[download]

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

<TD class="sidemenu" style="BACKGROUND-IMAGE: url(Images1\MenuBg.jpg);
+ BACKGROUND-REPEAT: repeat-x">&nbsp;&nbsp;&nbsp;
<a id="EmpSideMenu1_lnkAttendance" href="javascript:__doPostBack('EmpS
+ideMenu1$lnkAttendance','')" style="color:White;width:160px;">Attenda
+nce 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>
[download]

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 wo
+rking

     $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 f
+orgot to load "sssself"?) at C:/Perl/site/lib/Win32/IE/Mechanize.pm l
+ine 971.
[download]