All pastes #20762 Raw Edit

Untitled

public text v1 · immutable
#20762 ·published 2005-08-22 17:13 UTC
rendered paste body
#!/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();