use strict;
use LWP::UserAgent;

use vars qw($ua, $request, $response, $cookie_jar, $URL);

$ua = new LWP::UserAgent;

# Read proxy settings from the environment, if given
$ua->proxy();

$request = new HTTP::Request($URL);
$response = $ua->request( $request );

$cookie_jar = new HTTP::Cookies;
$cookie_jar->extract_cookies($response);

# Tell $ua to use our cookie jar :
$ua->cookie_jar($cookie_jar);

# Make our cookies persistent
$cookie_jar->save("cookie_jar");

$ua->cookie_jar($cookie_jar);