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'
);