print
    $q->start_table( {-bgcolor=>'#000000', -align=>'center'} ),
        $q->start_TR( {-valign='bottom'} ),
            $q->start_td( {-bgcolor=>'#ffe0a0'} );

                foreach( @list ) {
                    # do lots of wierd stuff and emit nested tables
                }
print
            $q->end_td,
        $q->end_TR,
    $q->end_table;