Select Code to Download

use strict;
use warnings;
...

sub get { my $key = shift; return $private_hash_ref->{$key};}
sub set { my ($key, $value) = @_; $private_hash_ref->{$key} = $value;}