% $cd_count = ; # this is embedded Perl

  You have <% $cd_count %> CDs.

<textarea name="foo"><% $foo_data | h %></textarea>

Homepage: <a href="redirect?url=<% $homepage | u %>">   

  % foreach my $person (@people) {

    Name: <% $person->{name} %>

    Age: <% $person->{age} %>

    Height: <% $person->{height} %>

    Weight: <% $person->{weight} %>

  % }

If you have more than a few lines of Perl code in a row, however, it is probably best to use a Perl block instead
  <%perl>

   my @words = $sentence =~ /\b(\S+)\b/g;

   my @small_words = grep { length $_ <=  } @words;

   my @big_words = grep { length $_ >  } @words;

  </%perl>

<& /path/to/menu &>

<& $component &>
<& menu, width => , admin =>  &>

<& ( component_path_returner( ) ) &>

<& +component_path_returner( ) &>

 It is currently <% $temp %> degrees.

  <%init>

   my ($temp) = $dbh->selectrow_array("SELECT temperature FROM current_weather");

  </%init>

<%args>

   $color   #是必需要传入数据的

   $size =>

   @items => ( , , 'something else' )

   %pairs => ( key1 => , key2 => 'value' )

  </%args>

% foreach (sort %ARGS) {

    <% $_ %>

  % }

  % foreach (sort @_) {

    <% $_ %>

  % }