#!C:/Perl/bin/perl.exe 
use HTTP::Request::Common qw(POST); 
use HTML::Form; # Not neccessary? 
use LWP; 

#
# Redirect Standard Output at times
#
#

open STDOUT, ">/Perl/output.txt";
#open STDERR, ">/Perl/error.txt"; 

$browser = LWP::UserAgent->new; 

#
# Establish an HTTP Request to form work with the Amazon website 
#
#

$amazon_login_url = 'https://secure.amazon.com/exec/panama/seller-admin/catalog-upload/catalog-upload-now?fmt=tab-delimited';

$http_request= POST $amazon_login_url, 'login_id'=> 'MyId', 'login_password' => 'MyPassword' ;



#
# Must install Crypt::SSLeay to use Secure Socket Layers (SSL)
#
#

# Need to turn on Cookies to use Amazon's SSL Web Page

$browser->cookie_jar({});
# The following will get a copy of the Amazon Source. $response = $browser->request ($http_request);

# Print out the Web Page HTML code print $response->as_string;