The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
%# The study of non-linear physics is like the study of non-elephant biology.

<%INIT>
my @Steps = (
    'Term of Use Agreement',			# loc
    'Registration Info',			# loc
    'Completing first-time registration',	# loc
    'Confirm Login',				# loc
    'Registration Successful',			# loc
);

foreach my $idx (0 .. $#Steps) {
    $m->print(' &gt;&gt; ') if $idx;
    $m->print('<strong>') if $idx eq $Step;
    $m->print('<nobr>' . loc($Steps[$idx]) . '</nobr>');
    $m->print('</strong>') if $idx eq $Step;
}
</%INIT>
<%ARGS>
$Step	=> 0
</%ARGS>