my $config = 42;
my $change_allowed = 0;

sub mult {
  $_[0] * $config 
}

sub get_config {
   $config
}

sub set_config {
   $config = shift if  $change_allowed;
}

# yadda