Greetings all. I'm trying to log into a site (safeway.com) to get pull some nutritional information. I can get past the initial login phase, but fail when I try to get the following page. I suspect this has something to do with not using cookies properly. Could somebody please tell me what's wrong with the following piece of code? Thanks Kretch

$| = 1 ;
use warnings ;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request::Common;
use MD5;
use strict;
use Data::Dumper ; 

my $cookie_jar = HTTP::Cookies->new(
                    file => $ENV{'HOME'}."/lwp_cookies.dat",
                    autosave => 1,
);

my  $ua = LWP::UserAgent->new;
$ua->proxy(['https','http','ftp'] => 'myinfo@myproxy') ;

$ua->cookie_jar($cookie_jar) ;
$ua->agent('Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US; rv:1.8.1.1
+1) Gecko/20071127 Firefox/2.0.0.11') ;




my $response = $ua->post(
             'https://shop.safeway.com/register/registernew.asp?signin
+=1&returnTo=',
             [ "register" => '0',
               "rzipcode" => '90210',
               "zipcode" => '90210' 
             ]
                     
);

die ("Error:", $response->status_line) unless $response->is_success ;



$number = 142100398 ;
  my $url = "http://shop.safeway.com/dnet/RichProductInformation.aspx?
+promo_windows=0&bpn=$number";

  my $request = HTTP::Request->new('GET',$url);
  $request->protocol('HTTP/1.1') ;
  my $response2 = $ua->request($request) ;
  open (FILE,">$number".".html") || die ("cannot open file for write\n
+");
  print $response2->status_line."\n";
print FILE $response2->content ;
  close (FILE) ;
[download]