#!/usr/bin/perl
require HTTP::Request;
require HTTP::Cookies;
require HTTP::Message;
require HTTP::Response;
require HTTP::Headers;
require LWP::UserAgent;

$ua = LWP::UserAgent->new();
$cookies = HTTP::Cookies->new();
$cookies->set_cookie(0,'sid','/','server');
$ua->cookie_jar( $cookies );
$response = $ua->get( 'http://server/?id=user' );
print $response->content();