The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<a href="<% $uri %>">\
% if ($escape) {
<% $ARGS{text} | h %>\
% } else {
<% $text %>\
% }
</a>\
<%args>
$text
$escape => 1
</%args>

<%init>
my %args = %ARGS;
delete $args{text};
delete $args{escape};

my $uri = uri(%args);
</%init>