use strict;
use warnings;
use LWP;

my $DEBUG = 1;

my $browser = LWP::UserAgent->new;
my $can_accept = HTTP::Message::decodable;

my $url = 'http://www.gwendragon.de/css/standard.css';

my $response = $browser->get($url,
   #'User-Agent' => 'Opera/9.60 (Windows NT 5.1; U; de) Presto/2.1.1',
   #'User-Agent' => 'Mozilla/4.76 [en] (Win98; U)',
   'User-Agent' => 'Mozilla/5.0 (X11; U; Linux i686; de; rv:1.9.1.9) Gecko/20100401 Ubuntu/9.10 (karmic) Firefox/3.5.9',
   #'User-Agent' => 'Mozilla/4.06 (compatible; MSIE 4.06; Windows 95)',
   'Accept' => 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, image/png, */*',
   'Accept-Charset' => 'iso-8859-1,*,utf-8',
   'Accept-Language' => 'de-DE',
   'Accept-Encoding' => 'gzip',
  );
  
$DEBUG && print "DEBUG#### ", $can_accept, "\n";

print "GET ", $response->request->uri->as_string, "\n",
      $response->request->headers_as_string, "\n",
	  $response->content;