get '/partners' => sub {
    my $dbh = get_db_connection();
    my $sth = $dbh->prepare("SELECT TPID,
                                    TPCOMPNAME,
                                    TPTYPE
                            FROM TRADINGPARTNERPROFILE
                            ORDER BY TPID
                            LIMIT 2");
    $sth->execute;
    my $partners = $sth->fetchall_hashref('TPID');
    my $dump = Dumper($partners);
    $dbh->disconnect;

    template 'show_partners.tt', {
                'dumper'   => $dump,
                'partners' => $partners,
    };

};\