use strict;
use warnings;

use Lingua::EN::Keywords;
use Lingua::EN::Summarize;
use Lingua::StopWords;

my $allcontent = 'Sky Travel Executives provide a rapid and reliable Airport Transfer service which specializes in catering for airport taxi transfers to and from all major London airports. 24 Hours executive cars and luxury 6/7 seater mini vans available at Heathrow Airport , Gatwick Airport , Stansted Airport , Luton Airport and City Airport. ';

my @keywords = keywords($allcontent);

print "Keywords:\n";
print "=========\n";
foreach my $keyword (@keywords) {
	print $keyword, "\n";
}
print "\n";

my $summary = summarize( $allcontent );	      
print "Summary:\n";
print "========\n";
print $summary;
print "\n\n";

##</code><code>##

Keywords:
=========
airport
major london airports.
mini
cars
travel
seater

Summary:
========