#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize::Firefox;

   my $mech = WWW::Mechanize::Firefox->new();
   my $url = 'https://www.chase.com/';

sub print_status()
{
   my $status =$mech->status();
   print "status = $status\n";
}

   $mech->get($url,
              activate  => 1,
              autoclose => 0,
              js_JSON   => 'native');  # Tried this - did not help.
   print_status();

   my $username = 'XXXXXXXX';
   my $password = 'XXXXXXXX';

   $mech->form_name ('logonform') ;
   $mech->field     (usr_name     => $username);
   $mech->field     (usr_password => $password);
   print_status();

   $mech->submit_form();
   print_status();