sub get_report () {
  ...

        open my $fh,"<", $self->{ file } or
            croak "Could not open $self->{ file } : $!";
        
        $res = "";
        while( <$fh> ) {
            $res .= $_;
        }
   ...
}