my $tags ='';
if ($form{'abstract'} ne "") {
    $tags .=  qq(<meta name="abstract" content="$form{'abstract'}"><br>\n);
}
if ($form{'author'} ne "") {
    $tags .=  qq(<meta name="author" content="$form{'author'}"><br>\n);
}
if ($form{'distributor'} ne "") {
    $tags .=  qq(<meta name="distributor" content="$form{'distributor'}"><br>\n);
}
if ($form{'copyright'} ne "") {
    $tags .=  qq(<meta name="copyright" content="$form{'copyright'}"><br>\n);
}
if ($form{'keywords'} ne "") {
    $tags .=  qq(<meta name="keywords" content="$form{'keywords'}"><br>\n);
}
if ($form{'description'} ne "") {
    $tags .=  qq(<meta name="description" content="$form{'description'}"><br>\n);
}

$tags .=  qq(<meta name="generator" content="SpyderTagV1.0!"><br>\n);

if ($form{'robots'} ne "") {
    $tags .=  qq(<meta name="robots" content="$form{'robots'}"><br>\n);
}
if ($form{'language'} ne "") {
    $tags .=  qq(<meta name="language" content="$form{'language'}"><br>\n);
}
if ($form{'distribution'} ne "") {
    $tags .=  qq(<meta name="distribution" content="$form{'distribution'}"><br>\n);
}
if ($form{'rating'} ne "") {
    $tags .=  qq(<meta name="rating" content="$form{'rating'}"><br>\n);
}

print my $cgi->escapeHTML( $tags);

##</code><code>##

print my $cgi->escapeHTML(
  join '', ( 
    map{
      defined($form{$_}) ? qq(<meta name="$_" content="$form{$_}"><br>\n):''
    } qw ( abstract author distributor copyright description 
           robots language distribution rating ) 		
  ),'<meta name="generator" content="SpyderTagV1.0!"><br>\n'
);