# set up the user agent...

$req = HTTP::Request->new(GET => 'http://www.example.com');
$req->header('Referer' => 'http://www.yahoo.com');

# make the request and so on...