$ua = new LWP::UserAgent;
	$cookie_jar = HTTP::Cookies->new(file => "cookies.dat", autosave => 1, ignore_discard => 1);
	$ua->cookie_jar($cookie_jar);

	$header = new HTTP::Headers (Accept => 'text/html',
				     Referer => $referer);

	$ua->agent($browser);

	$request = HTTP::Request->new(GET => $link, $header);

	$response = $ua->request($request);

	if ($response->is_success) {
...do stuff
	}

##</code><code>##

<SCRIPT language=JavaScript>
<!--
document.cookie = "ref=" +top.document.referrer + "; ; PATH=/; ;"
// -->
</SCRIPT>