use HTTP::Cookies;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$request = HTTP::Request->new('GET', 'http://www.hotbot.com');
$response = $ua->simple_request($request);
$cookie_jar = HTTP::Cookies->new(file => "cookie.txt", autosave => 1, ignore_discard => 1);
$cookie_jar->extract_cookies($response);
print $response->as_string;