#!/usr/bin/perl

use strict;
use warnings;
use CGI ':standard';
use CGI::Carp 'fatalsToBrowser';

my $adv = "Advertise your script here!";
my $adminmail = "sulfericacid\@qwest.net";

my @tokens = qw( abstract author distributor copyright keywords description
                 generator robots language distribution rating ); 

print header,
    start_html(),
    start_form,
    table({-border=>0},
      Tr( {-align=>RIGHT,-valign=>TOP},
         [ td(['Email Address: ', textfield('usermail')]),
           (map{ td([ucfirst($_).": ", textfield($_)])} @tokens),
           td([ '', submit]),
         ])
     ),
    end_form,
    hr;

my $tags ='';

for my $token ( @tokens ) {
    my $content = CGI::escapeHTML(param($token));
  next unless $content;
    $tags .= qq!&lt;meta name="token" content="$content"&gt;<br>\n!;
}

print $tags;
print hr;
print end_html();