#!/bin/perl -w -s
#https.pl

use  LWP::UserAgent;
use  HTTP::Cookies;
use  HTTP::Request::Common;
use  HTTP::Response;


my $ua = LWP::UserAgent->new;
$ua->cookie_jar( HTTP::Cookies->new );
   
#print "get  - ";
## 'http://www.royalbank.com' 'https://www.royalbank.com/mortgage/appr.html'
#my $rsp = $ua->request( GET  'https://www.royalbank.com/mortgage/appr.html' );
#if ($rsp->is_success) {
#   print "Succeeded\n";
#   print $rsp->as_string, "\n\n" if ($v);
#}
#else {
#   print "Failed: ", $rsp->status-line, "\n";
#}


print "post - ";
$rsp = $ua->request( POST  'https://www.royalbank.com/cgi-bin/afford.pl',
   [ Year_Inc1 => '100000', Submit => ' Submit ' ]
);
if ($rsp->is_success) {
   print "Succeeded\n";
   print $rsp->as_string, "\n\n" if ($v);
}
else {
   print "Failed: ", $rsp->status_line, "\n";
}