Here's a snippit from a recent script I had to write. It shows how you can supply referer information. Hope this is what you are looking for.

  my $req = new HTTP::Request GET => $location;
  $req->referer($referer);
[download]