perl -MCGI -e "$q = new CGI ; print $q->Tr({-font_family => 'not-valid'})"

##</code><code>##

<tr font-family="not-valid" />

##</code><code>##

use CGI;
$q = new CGI;

print $q->Tr({
	-align       => "CENTER",
	-valign      => "TOP",
	-bgcolor     => "blue",
	-font_color  => "yellow",
	-font_family => "verdana, arial, helvetica",
	-font_size   => "12"
});

##</code><code>##

<tr valign="TOP" font-family="verdana, arial, helvetica" font-color="yellow" align="CENTER" font-size="12" bgcolor="blue" />