#!/usr/local/bin/perl5 asp <% if($Request->QueryString('transfer')) { %> We just transferred from transfer.htm !!

<% } %> For loop decrementing font size:

<% for(reverse(1..6)) { %> Size = <%=$_%>
<% } %>