use DBIx::XHTML_Table;
print DBIx::XHTML_Table
    ->new('DBI:ODBC:db1')
    ->exec_query('SELECT * FROM table1 INNER JOIN table2 ON table1.kundennummer = table2.kundennummer WHERE kundennummer=?', [$kundennummer])
    ->output;