I think your Referer usage is ok (although I usually do it a bit differently), but right now all you are doing is creating a request object, and not executing the request! To do that you need to use a LWP::UserAgent object to query the website.... Here's part of a template I use whenever I need to fetch a URL, which you may or may not find useful.

  use HTTP::Request::Common;
  use LWP::UserAgent;
  use HTTP::Headers;

  my $refer = 'http://www.kingfeatures.com';
  my $url = 'http://www.kingfeatures.com/stuff...';

  my $agent = LWP::UserAgent->new(keep_alive => 1,
                                  timeout => 10,
                                 );

  # change this to masquerade as a browser if the site requires it.
  my $hdrs = new HTTP::Headers(User-Agent => 'My friendly LWP script')
+;
  $hdrs->referrer($refer);

  my $req = new HTTP::Request(GET => url, $hdrs);
  my $response = $agent->request($req);

  # $response is a HTTP::Response object.
  if ($response->is_success) {
      # you now have access to info like $response->headers
      # print 'Content-type: ' . $response->headers->content_type . "\
+n\n";

      # but what you probably want is in here:
      print $response->content;
  }
[download]

Update: OK, so I didn't see your declaration of $bot as a LWP::UserAgent there. However, I've never seen a call like this one that you have: $response->content($req). What does passing the HTTP::Request object to the content method do, if anything? Also notice that you're printing $pic to the zippy.gif file, but $pic is only a blessed hash reference. This is probably not what you want. Do you want to write $pic->content to the filehandle instead?

blokhead