view release on metacpan or  search on metacpan

site/eg/counting.htm  view on Meta::CPAN

#!/usr/bin/perl /usr/bin/asp-perl

<!--#include file=header.inc-->
<% if($Request->QueryString('transfer')) { %>
  <font color=red>We just transferred from transfer.htm !!</font>
  <p>
<% } %>

 For loop decrementing font size:

 <table cellpadding=3 border=0>
 <% for my $num (reverse(1..6)) { %> 
   <tr>
     <% for my $base (1..3) { %>
       <td><font size=<%= $num %>><%= (10 ** $base) * $num %></font></td>
     <% } %>
     <td><font size=<%= $num %>>Size = <%= $num %></font></td>
   </tr>
 <% } %>
 </table>

<!--#include file=footer.inc-->