Help for this page
use CGI(:html2);
print table( {border => 1}, ... th({align=>'right'},$_),td[param($_)] ), param() ),