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.