use strict;
use Net::HTTP;

my $addr='www3.oup.co.uk';
my $file='/nar/database/cap';

my $IO=Net::HTTP->new('Host'=>$addr) || die $@;
$IO->write_request(GET=>$file);
my ($code,$message,@headers)=$IO->read_response_headers;