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

my $cjar = HTTP::Cookies->new();
my $ua = LWP::UserAgent->new( keep_alive => '1', );
$ua->cookie_jar($cjar);
my $req = HTTP::Request->new( GET => 'http://derstandard.at/' );
my $response = $ua->request($req);
print $cjar->as_string;