sub new {  my $pkg = shift;  my $self; { my %hash; $self = bless(\%hash, $pkg); }  # the options hash  my $options = {};  $self->{options} = $options;  # set default parameters in options hash  %$options = (               debug => 0,               stack_debug => 0,               timing => 0,               search_path_on_include => 0,               cache => 0,               blind_cache => 0,               file_cache => 0,               file_cache_dir => '',               file_cache_dir_mode => 0700,               cache_debug => 0,               shared_cache_debug => 0,               memory_debug => 0,               ...               ...              );