#!/usr/local/bin/perl 

open (OUTFILE, ">file1"); 
select (OUTFILE); 
$~ = "WRITELINE"; 
$^ = "TOP_OF_PAGE"; 
$= = 60; 
while ($line = <STDIN>) { 
    write; 
} 
close (OUTFILE); 

format TOP_OF_PAGE = 
- page @< 
$% 

. 
format WRITELINE = 
@>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
$line 

.