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

<% } %> For loop decrementing font size: <% for my $num (reverse(1..6)) { %> <% for my $base (1..3) { %> <% } %> <% } %>
><%= (10 ** $base) * $num %>>Size = <%= $num %>