#!/usr/bin/perl -w

use strict;

use LWP;
use LWP::UserAgent;

my $browser = LWP::UserAgent->new();
$browser->env_proxy(); # if we're behind a firewall

my $url = 'http://www.somewebsite.com/';
my $response = $browser->get($url);

die "Error \"", $response->status_line(),
  "\" when getting $url"  unless $response->is_success();

my $keywords = $response->header('keywords');

print $keywords;