print $formdata{$_} ? qq(META NAME="$_" CONTENT="$formdata{$_}">\n) : '' for keys %formdata;