#! /usr/bin/perl
use warnings;
use strict;
use CGI qw/:standard/;
my $q = new CGI;
my @a = $q->param('keywords');
print $q->header;
print $q->start_html('Export Data to Spreadsheet Format');
foreach $a (@a) { print $a . "\n"; }
my $s = @a;
print "$s\n";
print $q->end_html;