##
Today's date is <% $date %>
##
##
% my $ua = $r->header_in('User-Agent');
% if ($ua =~ /msie/i) {
Welcome, Internet Explorer users
% } elsif ($ua =~ /mozilla/i) {
Welcome, Netscape users
% }
##
##
% foreach $item (@list) {
<% $item %>
% }
##
##
<& header &>
<& nav-bar &>
Here is the content of this page.
<& footer &>
##
##
<& header, date=>$date, section=>'News' &>
##
##
<%args>
$date
$section=>'Updates'
%args>