#!/usr/bin/perl --
use strict;
use warnings;
use LWP::UserAgent;
use WWW::Mechanize;
use Readonly;
use HTML::TreeBuilder;
#use HTML::Element qw(Table);
use HTML::TableExtract;# qw(tree);
use HTML::Encoding 'encoding_from_http_message';
use Encode;
use File::Slurp;
use Date::Manip;

Readonly::Scalar my $url => 'http://www.nyscr.org/Login.aspx';
Readonly::Scalar my $un => 'email@firm.com';
Readonly::Scalar my $pw =>'IheartPERL';

my $mech = WWW::Mechanize->new( agent => 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:6.0.2) Gecko/20100101 Firefox/6.0.2' );

$mech->get($url);
#The user name input is ctl00$ContentPlaceHolder1$ctl00$txtUserName
#PW field is ctl00$ContentPlaceHolder1$ctl00$txtPassword
#"User Type field (actually a select but think I can treat as a regular input)

my $response =
$mech->submit_form(
        form_number => 1,
        fields      => {
            'ctl00$ContentPlaceHolder1$ctl00$rcbusertype_Input' => "Subscriber",
            'ctl00$ContentPlaceHolder1$ctl00$txtUserName'    => $un,
            'ctl00$ContentPlaceHolder1$ctl00$txtPassword'    => $pw,
        }
    );


 if ($response->is_success) {
     print $response->decoded_content;  # or whatever
     $mech->save_content('resp.html');
 }
 else {
     die $response->status_line;
 }