#!/usr/local/bin/perl
open (OUTFILE, ">file1");
select (OUTFILE);
$~ = "WRITELINE";
$^ = "TOP_OF_PAGE";
$= = 60;
while ($line = ) {
write;
}
close (OUTFILE);
format TOP_OF_PAGE =
- page @<
$%
.
format WRITELINE =
@>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
$line
.