use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->get("https://www.amazon.com/gp/css/homepage.html/");
$mech->submit_form(
                   form_name => 'yaSignIn',
                   fields => {         'email' => $email,
                                       'password' => $password,
                                       
                             },
                   ); 
print $mech->content();

##</code><code>##

POST https://www.amazon.com/gp/flex/sign-in/select.html [yaSignIn]
  useRedirectOnSuccess=1         (hidden readonly)
  path=/gp/css/homepage.html     (hidden readonly)
  action=sign-in                 (hidden readonly)
  protocol=https                 (hidden readonly)
  email=                         (text)
  password=                      (password)
  <NONAME>=Sign In               (submit)

##</code><code>##

<input width="201" type="image" height="22" border="0" align="absmiddle" id="submit" value="Continue" alt="sign in using our secure server" src="https://images-na.ssl-images-amazon.com/images/G/01/x-locale/common/buttons/sign-in-secure._V192194766_.gif">