% my $date = localtime(); #### 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'