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 $_;
   }
}