package BinaryReader; use strict; { # scope to hide variables my $report; sub getReport { return $report; } # Other reader functions, the only things # that are allowed to update the report. } # end of scope 1;