use my.pm;

...

format FOOTER = 
@||||||||||||||||||||||||||||||||||
S = Scheduled R = Requested ... 


"MyCompany Information Systems"
.

##</code><code>##

package my;
require Exporter;

@ISA    = qw(Exporter);
@EXPORT = qw(print_report);

sub print_report
{
   $file = "output.txt";
   open (FILE,"$file") || die "Can't open $file for reading: 
$!\n"; 
   while ( defined($_ = <FILE>) ) {
       print $_;
   }
}

##</code><code>##

The last line from the file before the footer note - 
WRITTEN-OFF EVENTS   20030614 Daily EN_US`AWS`20030613`20030613`      YES