use Lingua::EN::Keywords;

  my @keywords = keywords($text);

##</code><code>##

#!/usr/bin/perl

use Lingua::EN::Keywords;
$data_file="msg00004.html";
open(DAT, $data_file) || die("COLUD NOT OPEN FILE");
@raw_power=<DAT>;
close(DAT);

my @keywords = keywords(@raw_power);
foreach $word (@keywords) {
print "$word, ";
}