use strict; use warnings; 
  use LWP;
  use HTML::Entities            qw/decode_entities/;
  use Data::Dumper; 


  my $ua; 
  $ua = new LWP::UserAgent(keep_alive=>1
                          ,agent =>"Mozilla/5.0 (Windows NT 5.1; rv:51.0) Gecko/20100101 Firefox/51.0"
#                          ,ssl_opts => { verify_hostname => 0
#                                       , SSL_verify_mode => 'SSL_VERIFY_NONE' 
#                                       }
#                          ,timeout=>$timeout
                          );

#  use HTTP::Cookies::Mozilla;
#  $cookie_jar_obj = HTTP::Cookies::Mozilla->new(file=>$cookie_file);
#  $ua->cookie_jar( $cookie_jar_obj );

  my $response;
  my $response2;
  my $reuse1=0; 
  my $reuse2=0; 
  if ($reuse2) {$reuse1=1}; 
  unless ($reuse1) { 
      $response=getter('http://www.appaloosa.com/web/mbrverify.aspx'); saver('mbrverify.txt',$response); 
      } 
  else { $response=unsaver('mbrverify.txt'); } 

#print Dumper($response);
  unless ($reuse2) { 
      my $res=form_parser1($response); 
#      print Dumper($res);

      my $form=$res->[0]; 
      my $mynumber=0; # id number 
      $form->{pairs}{txtMemNumA}=$mynumber; 
#      print Dumper($res);
      $response2=backer($response,$form); saver('mbrverify2.txt',$response2); 
      } 
  else{
      $response2=unsaver('mbrverify2.txt'); 
      } 

#print Dumper($response2);

exit; 

sub getter { 
  my $uri=shift; 
  my $args=shift; # array ref of args
  my $page = URI->new($uri);
  if ($args) { $page->query_form( @$args); } 

  my $req = new HTTP::Request (GET => $page); 
  my $response = $ua->request ($req);

  unless ($response->is_success) {
     die $response->status_line; 
     } 
  return $response;  
} # getter 

sub poster { 
  my $uri=shift; 
  my $vars=shift; # array ref of args
  my $page = URI->new($uri);
  $response = $ua->post( $page, $vars); 
  unless ($response->is_success) {
      die $response->status_line; 
      } 
  return $response;
  }  # poster 


sub form_parser1 { 
  my $response=shift; 
  my $page=decode_entities($response->decoded_content); 
  my @forms=$page=~m!(<form.+?</form.*?>)!msg; 
  my $res=[]; 
  for my $form (@forms){ 
    my ($fid)=$form=~m!(<form.+?>)!msg; 
    my $fh={}; 
    ($fh->{method})=$fid=~m!method="(.*?)"!ms; 
    ($fh->{action})=$fid=~m!action="(.*?)"!ms; 
  
    my @inputs=$form=~m!(<input.+?/>)!msg; 
    my $infields=[]; 
    my $inhash={}; 
    $fh->{pairs}=$inhash; 
    for my $input (@inputs) { 
      my ($name)=$input=~m!name="(.+?)"!i; 
      my ($value)=$input=~m!value="(.+?)"!i; 
      $inhash->{$name}=$value; 
      push @$infields,$name;
      } # input
    $fh->{infields}=$infields; 
    push @$res,$fh; 
    } # form 
  return $res; 
  } # parser 


sub backer { 
# only handles post and get 
  my $responseto=shift; 
  my $form=shift; 
#  my $base=$responseto->base;  # gives Can't locate object method "scheme" via package "URI::http"
  my $base=${$responseto->{_request}{_uri}};
  my $page = URI->new_abs($form->{action},  $base);
  my $response; 

  my $vars=[]; 
  my $hash=$form->{pairs}; 
  for my $id (@{$form->{infields}}) { 
    push @$vars,$id,$hash->{$id}; 
    } 

  if (uc($form->{method}) eq 'POST') { 
      return poster($page,$vars); 
      } # post  
  else{ 
      return getter($page,$vars); 
      } # get 
  return $response; 
} # backer

sub saver { 
  my $fn=shift; 
  my $response=shift; 
  open (my $rep,'>',$fn); 
  binmode $rep, ":encoding(UTF-8)"; 
  local $Data::Dumper::Deepcopy=1;
  local $Data::Dumper::Purity=1;
  local $Data::Dumper::Sortkeys=1;
  local $Data::Dumper::Indent=1; 
  print $rep Dumper($response);
  close $rep; 
  } #saver 

sub unsaver { 
  my $fn=shift; 
  open (my $rep,'<',$fn); 
  binmode $rep, ":encoding(UTF-8)"; 
  my $stuff=do { local $/;<$rep>};  
  close $rep; 
  { 
    no strict;
    return eval ($stuff) ; 
  }
  } # unsaver