#!/usr/bin/perl

use strict;
use warnings;

use LWP::UserAgent;

my $ua = new LWP::UserAgent;

my $response = $ua->get('http://local.xanoo.com:8383/ct/rss/blog',
	'If-Modified-Since' => 'Mon, 22 Aug 2005 17:12:43 GMT',
	'If-None-Match' => '"865c2c722554057dea2e276e4132e02f"');

print $response->status_line(), $/,
	$response->headers()->as_string();