How to generate a table ?

[Moon, John]

Could someone please suggest a "simpler" way to generate this table ...

print
'<table>',
    '<tr>',
        '<td align="right">',
            'Customer Id <B>:</B> ',
        '</td>',
        '<td align="left">',
            $q->textfield(-name=>'NEWCUST_ID', -default=>$cust_id,-size=>10,
-maxlength=>10),
        '</td>',
    "</tr>\n",
    '<tr>',
        '<td align="right">',
            'Account <B>:</B> ',
        '</td>',
        '<td align="left">',
            $q->textfield(-name=>'NEWACCT', -default=>$acct, -size=>15,
-maxlength=>15),
        '</td>',
    "</tr>\n",
    '<tr>',
        '<td align="right">',
            'Title <B>:</B> ',
        '</td>',
        '<td align="left">',
                $q->textfield(-name=>'NEWTITLE',-default=>$title,
-size=>50,-maxlength=>100),
        '</td>',
    "</tr>\n",
"</table>\n";  

John W Moon