Select Code to Download

use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
...
                             },
                   ); 
print $mech->content();

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

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