#!/usr/bin/perl -w

use strict;

my $total;


format STDOUT_TOP =
                            @>>>>>>>>>>>>>>
                            'Page: ' . $%
   Numbers
---------------
.


format STDOUT =
@>>>>>>>>>>>>>>
$total
.

for $total(1..200) {
    write STDOUT;
}