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

U28geW91IGNhbiBhbGwgcm90MTMgY
W5kIHBhY2soKS4gQnV0IGRvIHlvdS
ByZWNvZ25pc2UgQmFzZTY0IHdoZW4
geW91IHNlZSBpdD8gIC0tIEp1ZXJk