in reply to Re: Cookie Jar issues
in thread Cookie Jar issues
use CGI; require LWP::UserAgent; use HTTP::Request; $ua = new LWP::UserAgent; $ua->cookie_jar({ file => "$ENV{HOME}/.cookies.txt" }); $url = 'http://www.somesite.com'; my $req = new HTTP::Request('GET', $url, $headers); my $response = $ua->request($req); if ($response->is_success) { print "Content-type: " . $response->headers->content_type . "\n\n" +; print $response->content; } else { print "Error!!\n"; print $response->as_string, "\n", $response->content; }
|
|---|