use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => 'http://www.foobar.com/');
$req->header(referer => 'http://referred.site.com/');
my $res = $ua->request($req);
...