The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
% layout "$controller/common";
<h2>Databases</h2>
<ul>
% for my $database (sort @$databases) {
<li>
  <a href="<%= url_for("/$prefix/tables")->query(database => $database) %>">
    <%= $database %>
    %= $current_database eq $database ? '(current)' : ''
  </a>
</li>
% }
</ul>