print $html_page->table(
    $html_page->Tr(
        [ map {$html_page->td($_)} @{$sth->fetchall_arrayref()} ]
    )
)