use strict;
use warnings;
use WWW::Mechanize;
use HTTP::Cookies;

my $mech_obj = WWW::Mechanize->new();
$mech_obj->get( $signin_url );

if( not $mech_obj->success() )
{
	print "Could not retrieve signin page:\n";
	print $mech_obj->content();
	die;
}

$mech_obj->form_number( 2 );
$mech_obj->set_fields( 'username' => $username,
                       'password' => $password );