#!c:/perl/bin/perl
use strict;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Cookies;
use HTTP::Response;
use HTTP::Headers;
use HTTP::Message;
use HTTP::Request::Common;
use LWP::Debug;
use CGI;
#STORE COOKIES IN FILE
my $cookie_file = qq(c:/tmp3/mycookie.txt);
#HOW MANY TIMES HAVE $cookie_jar BEEN CHANGED
local $main::called_cookie = 0;
my $query = new CGI;
print $query->header;
#NEW USER-AGENT OBJEKT
my $ua = LWP::UserAgent->new;
$ua->agent('Mozilla/4.0');
#NEW COOKIE_JAR
my $cookie_jar=HTTP::Cookies->new ('file' => "$cookie_file",
'autosave' => '1');
#SUB TO BE CALLED WHEN $cookie_jar CHANGES _ FOR DEBUGGING
$cookie_jar->scan(\&cookiesub);
$cookie_jar->clear();
#VARIOUS TEST-SITES WHERE WE RECEIVE COOKIES
#my $req = GET 'http://www.cdnow.com';
#my $req = GET 'http://www.msn.com' ;
#my $req = GET 'http://www.amazon.com';
#WANTED !!
my $req = GET 'http://mother.netcom.no/Login/login_page.html';
#GO GET INFO
my $resp=$ua->request($req);
#UPDATE $cookie_jar;
$cookie_jar->extract_cookies($resp);
#PRINT RETURNED HEADERS
print $resp->headers_as_string();
#SHOW VALUE OF $cookie_jar NOW
print "\n\nMy Cookie_jar is now:".$cookie_jar->as_string."\n\n";
#SHOW RESPONSE
#print "\n\n".$resp->as_string;
#SAVE $cookie_jar TO FILE;
$cookie_jar->save();
exit;
sub cookiesub {
print "\n\n----------------\n\Cookie has been altered";
print "\nCookie_counter:$main::called_cookie \n";
$main::called_cookie++;
print "@_";
print "\n----------------\n";
}
####
print "\n\nMy Cookie_jar is now:".$cookie_jar->as_string."\n\n";
##
##
Set-Cookie3: NETSCAPE_LIVEWIRE_ID=305A68095915248EF4A4BD81DABFD4F90021A1F2; path="/Login"; domain="mother.netcom.no"; path_spec; discard; version=0
##
##
$cookie_jar->extract_cookies($resp);