my $var = 0;
sub get_var {
    return $var;
}

sub set_var {
    my ($new_val) = @_;

    # Do some checks on $new_val here.

    $var = $new_val;
    return $var;
}