use LWP::UserAgent qw( );
my $ua = LWP::UserAgent->new();
my $response = $ua->get('http://www3.oup.co.uk/nar/database/cap');

if ($response->is_success) {
   print $response->decoded_content;  # or whatever
} else {
   die $response->status_line;
}