eval {
    $sfr = WWW::Salesforce::Report->new(
        file => "t/report.csv",
    );
   $data = $sfr->get_report();
};

##</code><code>##

sub get_report () {
  ...

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