#!/usr/bin/perl -w
use strict;

use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request::Common;

my $ua = LWP::UserAgent->new;
my $cookies = HTTP::Cookies->new(file => "/tmp/cookies",
                                 autosave => 1);

$ua->cookie_jar($cookies);

$ua->request(GET "http://www.news.com/");