print map { qq[<META NAME="$_" CONTENT="$formdata{$_}">\n] }
     grep { defined $formdata{$_} and $formdata{$_} ne ''  }
       qw { author keywords description generator          };