#!/usr/bin/perl
use Lingua::EN::Keywords::Yahoo qw(keywords);
use Data::Dumper;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new(agent => "test");
$ua->proxy('http', 'http://myproxy.com:80');

my @keywords = keywords(" Two Scottish towns have seen the highest increase in house prices in the UK this year, according to new figures. Alexandria in West Dunbartonshire and Coatbridge in North Lanarkshire both saw an average 35% rise in 2005" );

print Dumper @keywords;