#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use HTTP::Request;

my $ua = LWP::UserAgent->new;
my $rq= HTTP::Request->new(GET => 'http://place.to.go.web/');
$rq->header("Cookie", "username=Joe"); # see this?
my $res=$ua->request($rq);

print $res->as_string