#!/usr/local/bin/perl5 asp For loop decrementing font size:
<% for(reverse(1..6)) { %> Size = <%=$_%> <% } %>